


COPYRIGHT® 75-81 


CHAR L & INTR AH-8637E-MC Aus 1981 anoonay 
CZDQHEO FICHE 1 OF 1 nave tw use Ss 4 








MACHT? BORC1052) _O3=DEC@BO 08:29 PAGE 2 


Reape = 80 08:27 SEQ 000: 


=  {DENTIFICATION 


pRoput? CODE: AC=B635E=MC 

PRODUCT NAME: CZDQHEO CHAR L & INTR 
DATE: NOV 1980 

MAINTAINER: DIAGNOSTIC GROUP 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOF TWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 
COPYRIGHT (C) 1975, 1981 BY DIGITAL EQUIPMENT CORPORATION 
THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL PDP UNIBUS MAS SBUS 
DEC DECUS DECTAPE 


** 
iw 


ame PT 


~~ 


MA’ +1? 


30a(1052) agen 08:29 PAGE 3 


03=DEC=80 0 


ABSTRACT 


THE FUNCTION OF THE DQ11 DIAGNOSTICS ARE TO 
VERIFY THAT THE OPTION OPERATES ACCORDING 
"0 SPECIFICATIONS. 


CURRENTLY THERE ARE SEVEN OFF LINE DIAGNOSTICS THAT ARE 
TO BE RUN IN SEQUENCE TO INSURE THAT IF AN 

ERROR SHOULD OCCUR IT WILL BE DETECTED 

AT AN EARLY STAGE AND INSURING THAT 

DIAGNOSIS OF ERROR WILL BE IMMEDIATE TO PROBLEM 

NOTE: ADDITIONAL DIAGNOSTICS MAY BE ADDED IN THE FUTURE. 


THE SEVEN DIAGNOSTICS ARE : 
CZD@A [REV] SIS R/wW TEST #1 
>” CZ7D0B [REV] BASIC R/W TEST #2 
>. CZ2DQC CREV] BASIC NPR_AND INTERUPT TEST 
6. CZ2DQD CREV] RECEIVER TRANSMITTER EXERCISER TEST 
5. CZ2DQE CREVJ] MISC. RX AND TX TESTS. PLUS BCC TESTS. 
6. (ZDQF CREV] CHARACTER DETECT TESTS. 
7. CZDQH [REV] CHARACTER LENGTH AND INTERRUPT TESTS. 


THERE IS ALSO_AN ONLINE TEST TO BE DISCUSED LATER. 
1, CZDQ0 CREV] ONLINE TEST. (ITEP OVERLAY) 


AND A PARAMETER INPUT PROGRAM IS AVAILABLE 
1, CZDQG CREV] DQ11 TRIAL PROGRAM (PARAMETER INPUT) 
REGUIREMENTS 


EQUIPMENT 


ANY PDP11 FAMILY CPU (WITH MINIMUM 4K MEMORY) =WITH 
OR WITHOUT A HARDWARE SWITCH REGISTER (LOC. 177570) 
~ Re (OR EQUILIVALENT) 

SYNC MODEM (ONLY REQUIRED FOR ONLINE TEST) 


STORAGE 

PROGRAM WILL LOAD AND RUN 

IN 4K CF MEMORY. 

Ny, 1400 THRU 1600 ARE ESPECIALLY TO 
BE TO BE UNTOUCHED BY OPERATOR 


NOTED AND 
AFTER DQ11 TRIAL PROGRAM HAS BEEN EXECUTED. 
OR AFTER THE ‘AUTO SIZING’ HAS BEEN DONE. 


LOADING PROCEEDURE 
ME THOD 
ALL PROGRAMS ARE IN ABSOLUTE FORMAT AND — 


SEQ 0002 


7DQH MACY)! 

7DOME P11 
3.1.1 
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ARE LOADED USING THE ABSOLU’E LOADER. 
ABSGLUTE LOADER STARTING ADDRESS *500 
MEMORY * 


LOAD THE ADDRESS OF ARS. LOADER (LOC.XXxX500) 
THEN START 


STARTING PROCEEDURE 


A. LOAD LOC. 200 
B. SET SWR TO ZERO FOR ‘'AUTO SIZING'’ OR LEAVE 
LEAVE SWR BIT 7=1 TO USE EXISTING PARAMETERS SET UP 
BY DQ11_ TRIAL PROGRAM OR A PREVIOUSLY RUN DQ11 DIAGNOSTIC 
THAT USED THE ‘‘AUTO SIZING"* 
****REFER TO SECTION 4.1 FOR SOFTWARE SWITCH REGISTER OPERATION 
AND OPTIONS. **** 
NOTE:THE SOFTWARE SWITCH REGISTER IS LOCATED AT LOC.176 
SOF TWARE DISPLAY REGISTER IS LOCATED AT LOC.174 


. THEN START 
THE PROGRAM WILL TYPE MAINDEC NAME AND PROGRAM NAME 
IF THIS WAS THE FIRST START UP OF THE PROGRAM) AND ALSO 


THE FOLLOWING: 
"MAP OF DQ11_ STATUS" 
1400 160010 
1402 152300 
1404 160020 
1406 150310 


THE ABOVE IS ONLY AN EXAMPLE! 

THIS WOULD INDICATE THE STATUS TABLE STARTING AT ADD. 

1400 IN THE PROGRAM. THE STATUS TABLE MUST BE VERIFIED BY THE 
USER IF AUTO SIZING IS DONE. FOR INFORMATION OF STATUS 

TABLE SEE SECTION 8.4 FOR HELP. 


seee]F THE SOFTWARE SWITCH REGISTER IS SELECT 
WILL BE TYPED AFTER THE PROGRAM IDENTIFIES ITSEL 
SWR=XXXXXX NEW= (REFER TO SECTION 4.1 FOR OPERATOR'S OPTION) **** 
NOTE: IF USING THE SOFTWARE SWITCH REGISTER WHEN A HARDWARE 
SWITCH REGISTER IS AVAILABLE THE PROGRAM WILL NOT 
TYPE OUT THE TITLE. 


ED i Ah FOLLOWING 


SEQ 0003 
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THE PROGRAM WILL ‘TYPE ‘R'’ 
AND PROCEED TO RUN THE DIAGNOSTIC 


4.) CONTROL SWITCH SETTINGS 


If THE C .NOSTIC IS RUN ON A CPU WITHOUT A SWITCH 

REGISTER THEN A SOFTWARE SWITCH REGISTER IS USED WHICH ALLOWS 

THE USER THE SAME SWITCH OPTIONS AS THE HARDWARE SWITCH REGISTER. 
IF THE HARDWARE SWITCH REGISTER DOES NOT EXIST OR IF ONE DOES 
AND IT CONTAINS ALL ONES (177777) THEN THE SOFTWARE SWITCH 
REGISTER (LOC. 176) IS USED. 


CONTROL : 


THIS PROGRAM ALSQ SUPPORTS THE DYNAMIC LOADING OF THE SOFTWARE SWITCH 
REGISTER (LOC. 176) FROM THE TTY. THIS CAN BE ACCOMPLISHED BY 
DOING THE FOLLOWING: 


1) TYPE CONTROL G <*G>; THIS WILL ALLOW THE TTY TO ENTER DATA INTO 
LOC. 176 AT SELECTED POINTS WITHIN THE PROGRAM. 


2) THE MACHINE WILL THEN TYPE: SWR=XXXXXXNEW= (XXXXXX IS THE OCTAL CONTENTS 
OF THE SOFTWARE SWITCH REGISTER.) 


3) AFTER THE ‘"NEW='"" HAS BEEN TYPED THEN THE OPERATOR CAN DO ONE 
OF THE FOLLOWING AT THE TTY: 


A) TYPE A NUMBER TO BE LOADED INTO LOC. 176 FOLLOWED BY A <CR>, 
(ONLY NUMBERS BETWEEN 0-7 WILL BE ACCEPTED AND ONLY 6 NUMBERS 
WILL BE ALLOWED) 

IF A <CR> IS THE FIRST KEY DEPRESSED THE SOFTWARE SWITCH 
REGISTER CONTENTS WILL NOT BE CHANGED. 


B) IF A CONTROL U <*U> IS DEPRESSED THEN THE PROGRAM WILL SEND YOU 
BACK TO STEP 2. ’ 


4 


Sw 15 SET: HALT ON ERROR 

Sw 14. SET: LOOP ON CURRENT TEST 

Sw 13 SET: INHIBIT ERROR PRINT OUT 

Sw 12 SET: INHIBIT TYPE OUT/BELL ON ERROR. 
Sw 11 SET: INHIBIT ITERATIONS 

Sw 10 SET: ESCAPE TO NEXT TEST 

Sw 09 SET: LOOP WITH CURRENT DATA 

Sw O08 SET: CATCH ERROR AND LOOP ON IT 

Sw O7 SET: USE PREVIOUS STATUS TABLE. CLR=DO AUTO SIZE. 
SW 06 SET: Ps 

Sw 05 SET: 

SW 04 3=SET: 

Sw 03 SET 


Sw O2 SET: LOCK ON SELECTED TEST 
Sw O01 SET: RESTART PROGRAM AT SELf “ED TEST 
SET: RESELECT DQ11°S DESIRED ACTIVE. 


MACY 


. et 


METHOD: 
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SWITCH REGISTER RESTRIC BIONS 


Sw 90 RESELECT DQ11"S DESIRED ACTIVE. 

PLEASE NOTE THAT A MESSAGE IS TYPED 

OUT FOR SWITCH REGISTER BEING EQUAL TO DQ11'S 

ACTIVE. THIS MEANS IF THE SYSTEM HAS 

FOUR DQ11S; BITS 00,01,02,03 WILL 

BE SET IN LOC ‘DOQACTV''. USING THIS 

SWITCH ALTERS THAT LOCATION; THEREFORE 

IF FOUR DQ11S ARE IN THE SYSTEM 

*#**DO NOT*** SET SWITCHS GREATER THAN 

Sw 03 IN THE UP POSITION. THIS WOULD BE 

A FATAL ERROR. DO NOT SELECT MORE ACTIVE 

DQ11S THAN HAS BEEN GIVEN INFORMATION 

ABOUT IN TRIAL PROGRAM. 

LOAD ADDRESS 200 

START WITH SW 00=1 

PROGRAM WILL TYPE MESSAGE 

CONTINUE THE BINARY NUMBER OF DQ11S DESIRED ACTIVE 
EXAMPLE: 1=1 DQ11; 3=2 DQ11; 7=3 DQ11; 17=4 DQ11 37=5 DQ11 
NUMBER (IF VALID) WILL BE IN DATA LIGHTS (EXCLUDING 11/05, 
CONTINUE WITH ANY OTHER SWITCH SETTINGS DESIRED. 


VU ODP 


sanal 
oo 


Sw 07 IT IS STRONGLY SUGGESTED THAT 
AT LEAST ONE PASS HAS BEEN MADE 
BEFORE TRYING TO SELECT A TEST 
THAT IS NOT IN THE ORDER OF SEQUENCE 
THE REASON BEING IS THAT THE 
PROGRAM HAS TO CLEAR AREAS AND SET 
UP PARAMETERS. ALSO WHEN A TEST IS 
SELECTED ALWAYS START AT THE VERY 
BEGINNING OF THAT TEST. 


sw O09 LOOP ON CURRENT DATA: 
THIS SWITCH WILL ONLY WORK IF 
CALL “’SCOP1"* IS_IN THA TEST. 
THE REASON BEING THAT MUST TESTS 
DEAL WITH BLOCKS OF DIFFERENT DATA 
TO BE SENT OR RECEIVED ALL AT ONCE 
THUS IN BLOCK DATA; ONE PATTERN CANN'T BE SINGLED OUT. 


SwITCH REGISTER PRIORITYS 
ERROR Si] TCHES 


Vis Sw 12 DELETE PRINT OUT/BELL ON ERROR, 
ee Sw 13 DELETE ERROR PRINTOUT. 

3.  . Sw 15 HALT ON THE ERROR, 

4. Sw 08 GOTO BEGINNING OF THE TEST. 

5. Sw 10 GOTO NEXT TEST ON ERROR, 


#eeeui T (ERROR) ROUTINE SUPPORTS <*G> OPERATION**** 
COPE SWITCHES 


ET 
: 


Cs 
1/04, 11/34) 


SEQ 0005 
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1. Sw 09 (IF FNABLED BY ‘'SCOP1""? 
¢° Sw 14 
. Sw 11 


ee*eSCOPE ROUTINE WILL SUPPORT <*G> OPERATION®*** 
. STARTING ADDRESS 
STARTING ADDRESS IS AT 000200 
"HERE ARE NO OTHER STARTING ADDRESSES 
FOR THE DQ11 DIAGNOSTICS PREVIOUSLY MENTIONED 
NOTE: IF ADDRESS 000042 IS NON-ZERO 
THE PROGRAM ASSUMES IT IS UNDER 
ACT11°OR DDP CONTROL AND WJLL ACT ACCORDINGLY 
AFTER *ALL* AVAILABLE DQ11°S ARE TESTED 
THE PROGRAM WILL RETURN TO ‘DDP2"’ OR ‘'ACT=11"". 
OPERATING PROCEDURE 


WHEN PROGRAM IS INITIALLY STARTED MESSAGES AS DESCRIBED IN SECTION 
FOUR WILL BE PRINTED. 


AND PROGRAM WILL BEGIN RUNNING THE 
DIAGNOSTIC 


Sed PROGRAM AND/OR OPERATOR ACTION 
THE TYPICAL APPROACH SHOULD BE 


1. HALT ON ERROR (VIA SW 15=1) 
WHEN EVER AN ERROR OCCURS 
e. CLEAR Sw 15 
3. SET Sw 14: (LOOP ON THIS TEST) 
4. SET Sw 13: (INHIBIT ERROR PRINT OUT) 


THE TEST NUMBER AND PC WILL BE TYPED OUT AND 
POSSIBILY AN ERROR MESSAGE (THIS DEPENDS ON THE TEST) 
TO GIVE THE OPERATOR AN IDEA AS TO THE SOURCE OF THE 
PROBLEM. IF IT IS NECESSARY TO KNOW MORE INFORMATION 
CONCERNING THE ERROR REPORT; LOOK IN THE LISTING 

FOR THAT TEST NUMBER WHICH WAS TYPED OUT 

AND THEN NOTE THE PC OF THE ERROR REPORT 

THIS WAY THE EXACT FUNCTIONING OF THE TEST 

CAN BE INTERPEDITED 


6. FRRORS 


AS DESCRIBED PREVIOUSLY THERE WILL ALWAY SE 

A TEST NUMBER AND PC TYPED OUT AT_THE TIME OF AN 

FRROR (PROVIDING SW 13=0 AND SW 12=0). IN MOST CASES ADDITIONAL 
INFORMATION WILL BE SUPPLIED THE THE ERROR MESSAGE 

ait IS TO GIVE THE OPERATOR AN INDICATION OF THE 


bet ERROR RECOVERY 


oD 


30A(1052) O3=DEC-80 08:29 PAGE 8 
03=DEC=80 08:27 


If FOR SOME REASON THE DQ11 SHOULD 

"MANG THE BUS'' (GAIN CONTROL OF BUS SO THAT = 
CONSOLE MANUAL FUNCTIONS ARE INHIBITED) AW INIT 
OR POWER DOWN/UP IS NECESSARY FOR OPERATOR 

TO REGAIN CONTROL OF CPU. 

IF THIS SHOULD HAPPEN; LOOK IN LOCATION 

"*TSTNO’’ (ADDRESS 1226)FOR THE NUMBER OF THE TEST THAT 
i AT THE TIME OF THE CATASTROPHIC 

ERR . 

IN THIS WAY THE OPERATOR WILL HAVE AN IDEA AS TO 
WHAT THE DQ11 WAS DOING AT THE TIME OF THE ERROR. 


****HALT RECOVERY WHEN USING SOFTWARE SWITCH REGISTER**** 


If THE SOFTWARE SWITCH REGISTER IS TO BE CHANGED AFTER A HALT 

THE THE OPERATOR IS REQUIRED TO TYPE A <*G> BEFORE DEPRESSING CONTINUE. 
THE FOLLOWING WILL BE TYPED: 

SWR=KXXXXX NEW= (REFER TO SECTION 4.1 FOR OPERATOR OPTION) 


RESTRICTIONS 

STARTING RESTRICTIONS 

SEE SECTION 4. (PLEASE) 
OPERATING RESTRICTIONS 


DQ11 TRIAL PROGRAM MUST BE RUN PRIOR TO THE 

FIRST AND ONLY THE FIRST RUNNING OF ANY DQ11 DIAGNOSTIC 
NOTE: IF NO PROGRAM OTHER THAN A 

DQ11 DIAGNOSTIC WAS LOADED AFTER DQ11 TRIAL OR 

If CORE MEMORY HAS NOT BEEN CHANGED;OR IF THERE 

1S NO DQ11 CONFIGURATION CHANGES; THE 

DQ11 TRIAL PROGRAM NEED NEVER BE RUN AGAIN. 

HOWEVER IF ANY OF THE ABOVE HAVE BEEN VIOLATED 

THE DQ11 TRIAL PROGRAM MUST BE RUN AGAIN 

BEFORE RUNNING THE DIAGNOSTICS 

NOTE: AN ALTERNATIVE TO.THE ABOVE IS ATTEMPTING 

THE "AUTO SIZING'' WHEN PROGRAM IS INITIALLY STARTED 
wITH SWO7=0. 


MISCELLANEOUS 

EXECUTION TIME 

PASS COMPLETE 

WHEN THE DIAGNOSTIC HAS COMPLETED 

A PASS THE FOLLOWING IS AN EXAMPLE 

OF THE PRINT OUT TO BE EXPECTED. 

END PASS AC-8635E-MC CSR: 160000 VEC: 300 PASSES: 000001 ERRORS: 000000 


NOTE: THE NUMBERS FOR CSR AND VEC ARE . 
NOT NECESSARILY THE VALUES FOR THE DEVICE 


SEQ 0007 


0 3=DEC=80 0 
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THEY ARE ONLY FOR THIS EXAMPLE. 
TST (MINI MONITOR) 
THE VERY FIRST “‘TEST’* (TST1) 
1S *NOT* 4 TEST OF THE DQ11 HARDWARE 
IT 1S A MINI-MONITOR USED TO CYCLE DQ11 IN THE 
SYSTEM THROUGH THE DIAGNOSTIC. 
REMEMBER: TST] IS NOT A TEST OF DQ11 HARDWARE! !!!!!! 


KEY LOCATIONS 


RETURN (1214) 


NE KT (1216) 
TSTNO (1226) 
RUN (1304) 


DQCROO-DQCR17 
DQSTOO=DQST17 
(7400)=(1476) 


DOACTY (1500) 


D@CSR (1506) 
DOSTAT (1510) 


1 
1 
1 
1 
BIT 1 
1 
0 


OOo NWERW 


CONTAINS THE ADDRESS WHERE PROGRAM WILL 
RETURN WHEN ITERATION COUNT IS REACHED 
OR IF LOOP ON TEST IS ASSERTED. 
CONTAINS THE ADDRESS OF THE NEXT TEST 


‘TO BE PEFORMED. 


CONTAINS THE NUMBER OF THE TEST NOW 
BEING PEFORMED. 

THE BIT _ IN ‘RUN’ ALWAYS POINTS ONE 
PAST YY DQ11 CURRENTLY BEING TESTED. 


EXAMPLE 


(RUN) 1304/0000000001000000 
MEANS THAT DQ11 NO.05 IS THE DQ11 NOW 


RUNNING. 


THESE LOCATIONS CONTAIN THE INFORMATION 

NEEDED TO TEST UP TO 16 (DECIMAL) DQ11S 

SEQUENTIALY. THEY CONTAIN THE CSR,VECTOR 
AND STATUS CONCERNING THE CONFIGURATION 

OF EACH DQ11. 

EACH BIT SET IN THIS LOCATION INDICATES 

THAT THE ASSOCIATED DQ11 WILL BE TESTED 


IN TURN, 


EXAMPLE : 


(DQACTV) a A po ae sg shy 


MEANS THAT DQ11 


- 00,01,02,03,04 


WILL BE TESTED. 


EXAMPLE: 

(DQACTV) 1500/0000000000010001 

MEANS THAT DQ171 NO. 00,04 

WILL BE TESTED. 

CONTAINS THE aka te CSR OF THE 
CURRENT DQ11 UNDER TEST 

CONTAINS THE STATUS OF THE CURRENT 


bQi1 UNDER TEST. 


TWO SYNC CHARS/ONE SYNC CHAR 

TEST JUMPER INSTALLED/NOT INSTALLED 
BB OPTION INSTALLED/NOT INSTALLED 
BA OPTION INSTALLED/NOT INSTALLED 


ACTIVE ON FIRST NON-SYNC/ACTIVE AFTER NO. OF SYNC . 


AB OPTION INSTALLED/NOT INSTALLED 
ODD VRC/EVEN VRC 


SEQ 0008 
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BIT 00-08 VECTOR ‘‘A’’ GF DEVICE 
6.5 *** METHOD OF AUTO SIZING *** 


#.5.1 FINDING THE CONTROL STATUS REGISTER. 


WHEN LOOKING FOR THE CSR IT IS NECESSARY TO TAKE CARE 

THAT WHEN A CSR IS FOUND THAT IT IS_ INDEED A DQ11. THAT 

IS THE METHOD OF MY MADNESS FOR THIS ROUTINE. 

AN ATTEMPT TO CLEAR THE MISC. REGISTER IS RIED 

IF A TIME-OUT TRAP OCCURES POINTERS ARE UPDATED 

AND ATTEMPTED AGAIN. IF NO TIME-OUT; THE RECEIVER ‘'ACTIVE BIT’’ (BIT 12) 
1S SET AND A *COMPARE* FOR BOTH SYNC1 AND SYNC 2 IS DONE 

AT THE MISC. REGISTER. IF THEY ARE THERE THIS IS 

A DQ11. THE INFORMATION IS STORED AWAY. 


ONE SYNC BIT OR TWO? 


SINCE TOO MUCH HARDWARE MUST BE TURNED ON TO SENSE THE 
PRESENTS OF ONE SYNC OR TWO. THE PROGRAM ASSUMES TWO SYNC 
CHARS. NOTE: THIS ASSUMPTION MAY BE ALTERED AFTER AUTO SIZING 
BY ALTERING BIT 15 IN APPRIOATE DQSTXX: LOCATION. 


2.5.3 ‘'BB’' OPTION INSTALLED? 


TO SENSE FOR THE ‘BB'' OPTION THE PROGRAM SELECTS THE 
CHARACTER DET. REGISTER AND THE LOADS IN ALL 1°S; IF 
ANY ONE OR COMBINATION OF BITS ARE SET THE 8B OPTION 
IS ASSUMED TO EXIST. 


*“"AB’’ OPTION INSTALLED? 


TO SENSE FOR THE ‘'AB’’ OPTION THE PROGRAM SELECTS THE 
POLYNOMIAL REGISTER AND WRITES ALL 1°S INTO IT; IF ANY 
temas OF BITS ARE SET THE AB OPTION IS ASSUMED 


.5.5 "BA" OPTION INSTALLED? 


TO SENSE FOR ‘BA'' OPTION REQUEST TO SEND AND DATA TERMINAL 
READY ARE SET; IF EITHER ONE OR BOTH ARE SET THE PROGRAM 
ASSUMES THE BA OPTION EXISTES 


8.5.6 JUMPER ON END OF CABLE? ***NOTE:CZDQE ONLY*** 


THE PROGRAM CHECKS TO SEE IF EITHER OR BOTH CLEAR T0 
SEND AND CARRIER ARE SET; IF SO THE PROGRAM ASSUMES THE 
TEST JUMPER IS ON THE END OF THE CABLE. 


8.5.7 ACTIVE ON FIRST NON-SYNC? 


SINCE TOO MUCH HARDWARE MUST BE TURNED ON TO SENSE FOR 
WHEN THE DQ11 GOES ACTIVE THE PROGRAM ASSUMES ‘'ACTIVE 

ON FIRST NON=SYNC'', NOTE: THIS CAN BE CHANGED BY ALTERING 
BIT 11 IN THE APPRIOATE DQSTXX: AFTER AUTO SIZING 


wo 
. 
J? 
. 
ae 


oD 
. 
wal 
* 
a 


ww 
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2.5.8 SET FOR ODD OR EVEN PARITY? 
AS ABOVE TOO MUCH HARDWARE IS NEED TO SENSE WHICH PARITY 
WAS SELECTED.SO THE PROGRAM ASSEMES ODD PARITY. 
NOTE: THIS CAN BE CHANGED BY ALTERING BIT 9 IN APPRIO~ 
ATE DQ@STXX: LOCATION. AFTER AUTO SIZING 
2.5.9 FINDING THE VECTOR. 
THE PROGRAM SETS ‘PRIMARY DONE'',"'SECONDAY DONE'', AND ‘‘INTERUPT ENABLE’’ 
AND LOOKS FOR AN INTERUPT. IF IT INTERUPTS IT IS PICKED 
UP AND STORED AWAY. IF NO INTERUPT OCCURES THE PROGRAM 
ASSUMES VECTOR =300. THIS PROBLEM WILL BE FIXED IN ONE 


OF THE DIAGNOSTICS AND *AUTO SIZING* SHOULD BE REDONE TO 
GET THE CORRECT VECTOR. 


Se PROGRAM DESCRIPTION 
CONTAINED WITHIN LISTING 
10. LISTING 
FOLLOWING 


"7 DQH MA’ 


7DOME P11 


| 
“ 


ronn nor 
mun 


AIWANANAIWN ON NAP DD 
ABALACLS Sa 3 


DB LPP I LVSTE SESE SEAT STII 


pa 
Lom DY 9) 


541 


543 


vii 
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: CZDQHEO/<377>/CHAR L & IN 
+ COPYRIGHT 1975, DIGITAL NOUIPMENT CORP., MAYNARD, MASS. 01754 


REVISED 16-DEC-76 BY R. BLACK 
; A) SUPPORTS SOFTWARE SWITCH REGISTER 
; caf pr THE DYNAMIC LOADING OF THE SOFTWARE SWITCH REGISTER 


: <*@>. 
STARTING PROCEDURE 
;LOAD PROGRAM 
;LOAD ADDRESS 000200 
:PRESS START 
[PROGRAM WILL TYPE "'CZDQHE0/<377>/CHAR L & INTR ‘* 
[PROGRAM WILL TYPE 'R'' TO INDICATE THAT TESTING HAS STARTED 
TAT THE END OF A PASS, PROGRAM WILL TYPE PASS COMPLETE MESSAGE 
[AND THEN RESUME TESTING 


e 


7SWITCH REGISTER OPTIONS 
SW15=100000 ;=1,HALT ON ERROR 


Sw14=40000 3=1,LOOP ON CURRENT TEST 
Sw13=20000 :=1, INHIBIT ERROR TYPEOUT 
Sw12=10000 7=1,DELETE TYPEOUT/BELL ON ERROR. 
Sw11=4000 7=1, INHIBIT ITERATIONS 

Sw10=2000 ,2=1,ESCAPE TO NEXT TEST ON ERROR 
SwO9=1000 3=1,400P WITH CURRENT DATA 
Sw08=400 3=1,L00P ON om. 

Sw06=100 

Sw05=40 é 

sw04=20 

Sw03=10 

SWO02=4 LOCK ON TEST SELECT 

Sw01=2 TRESTART PROGRAM AT SELECTED TEST 
sw00=1 RESELECT DQ11 DESIRED ACTIVE 


[NOTE: THIS MUST NOT EXCEED ORIGINAL COUNT 


SEQ 0611 


M 1 
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“ZDQHE P11 03=DEC=80 08:27 GENERAL DEF INATIONS AND EQUIVALENCIES SEQ 0012 
558 
559 
se REGISTER DEFINITIONS 
562 000000 : RO=%0 ;GENERAL REGISTER 
565 000001 gas R1=%1 GENERAL REGISTER 
564 000002 R2=%2 ;GENERAL REGISTER 
565 000003 R3=%3 ;GENERAL REGISTER 
566 000004 R4=%4 GENERAL REGISTER 
567 000005 R5=%5 GENERAL REGISTER 
568 000006 SP=%6 z;PROCESSOR STACK POINTER 
hi 000007- PC=%7 PROGRAM COUNTER 
+a LOCATION EQUIVALENCIES 
573 177570 DSWR= 177570 ;HARDWARE SWITCH REGISTER LOC. 
576 177570 DLIGHTS=177570 ;HARDWARE DISPIAY REGISTER LOC. 
575 177776 é PS=177776 PROCESSOR STATUS WORD 
a8 001200 STACK=1200 START OF PROCESSOR STACK ; 
rte. > INSTRUCTION DEFINITIONS ‘ 
580 005746 PUSH1SP=5746 z;DECREMENT PROCESSOR STACK 1 WORD 
581 005726 POP1SP=5726 : INCREMENT PROCESSOR STACK 1 WORD 
582 010046 PUSHRO=10046 SAVE RO ON STACK 
583 012600 POPRO=1 2600 RESTORE RO FROM STACK 
584 024646 PUSH2SP=24646 ;DECREMENT STACK TWICE 
585 022626 POP2SP=22626 INCREMENT STACK TWICE 
oa9 -EQUIV EMT,HLT ;BASIC DEFINITION OF ERROR CALL 
588 
589 100000 B1T15=100000 
590 040000 B1T14=40000 
591 02 B1T13=20000 
592 010000 B1T12=10000 
We 04 B1T11=4000 
594 002000 B1T10=2000 
595 001000 B1T9=1000 
596 000400 B1T8=400 
597 200 B1T7=200 
598 000100 B1T6=100 
599 000040 B1T5=40 
600 000020 B1T4=20 
601 000010 B1T3=10 
602 0 BIT2=4 
603 000002 BIT1=2 
604 1 BITO=1 
605 
606 
a 3DQ11 OPTIONAL DEFINITIONS 
609 002000 ABB1T=2000 
610 004000 : ACTBIT=4000 
611 01 BABI T=10000 
612 020000 BBBIT=20000 
613 040000 JUMBIT=40000 


N 1 
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Bee 


R 
© 
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® IF ARASLS 
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GENERAL DEFINATIONS AND EQUIVALENCIES SEQ 0013 
001000 ODDBIT=1900 
100000 SYNB1T=100000 


3;DQ171 SECONDARY REGISTER DEF INATIONS 


000GG RXBA.P=0 RECEIVER BUS ADDRESS PRIMARY. 
000001 RXWC.P=1 RECEIVER WORD COUNT PRIMARY. 
060000 TXBA.P=2 ; TRANSMITTER BUS ADDRESS PRIMARY. 
00000 TXWC.P=3 ; TRANSMITTER BUS ADDRESS PRIMARY. 
000004 RXBA. S=4 RECEIVER BUS ADDRESS SECONDARY. 
000005 RxWC.S=5 RECEIVER WORD COUNT SECONDARY. 
000006 1XBA. S=6 TRANSMITTER BUS ADDRESS SECONDARY. 
000007 TXWC. S=7 ; TRANSMITTER WORD COUNT SECONDARY. 
000010 CHARDT=10 ; CHARACTER DETECT REGISTER. 
000011 SYNC.=11 SYNC REGISTER 

000012 MISC.=12 ;MISCELLANEOUS REGISTER. 

000013 TX .MUX=13 3 TRANSMITTER MUX REGISTER. 

000014 SEQ.=14 SEQUENCE REGISTER. 

000015 RX.BCC=15 ;RECEIVER BCC REGISTER 

000016 TX.BCC=16 : TRANSMITTER BCC REGISTER. 

000017 POLY.=17 [POLYNOMIAL REGISTER. 


B 2 
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[ 
| 
| CZ2DQHE.P11 03-DEC-80 08:27 TRAPCATCHER FOR UNEXPECTED INTERUPTS SEQ 0014 
| 639 ;TRAPCATCAER FOR ILLEGAL INTERRUPTS 
640 000000 -=0 
rt | STANDARD INTERRUPT VECTORS 
| 643 000024 -=24 
644 000024 016222 -PFAIL ;POWER FAIL HANDLER 
645 000026 000340 340 Jott Re AT LEVEL 7 
646 000030 015672 eHLT ZERROR HANDLER 
647 000032 000340 340 TSERVICE AT LEVEL 7 
648 000034 015640 . TRPSRV > GENERAL HANDLER DISPATCH SERVICE 
649 000036 000340 340 SERVICE AT LEVEL 7 
650 000046 -=46 
651 000046 014420 LOGICAL sACT HOOKS 
652 000052 o= 52 
653 000052 000000 DO 
654 3 THIS ROUTINE TRIES TO FORCE TH® RECEIVER TO_INTERUPT 
655 TO ITS VECTOR WHERE IT WILL PICK UP THE STATUS LOCATION 
656 [FOR ITS NEW PC; AND PICK UP AN IOT INSTRUCTION FOR ITS 
657 “NEW PS. WHEN THE NEW PC IS FETCHED AN IOT INSTRUCTION IS 
658 sEXECUTED, TRAPPING TO LOCATION 20 WHERE A ROUTINE JS EXECUTED 
659 TO TAKE THE PC FROM THE STACK AND US IT AS THE VECTOR ADDRESS 
re 000056 * 356 
662 000056 VE CMAP : 
663 000056 010120 1$: MOV R1, (RO) + START FILLING THE VECTOR AREA 
664 000060 012721 000004 MOV #4,(R1)+ [WITH .+#2; IOT (4) 
665 000064 022021 CMP (RO)+,(R1)+ [UPDATE THE POINTERS 
666 000066 020127 001000 CMP R1,41000 31S ALL FLOATING VECTOR AREA DONE 
667 000072 101771 BLOS 1$ [BR IF NOT ALL DONE 
668 000074 012737 000146 000020 MOV #4$,a#20 SET FOR IOT TRAP BY DQ11 
669 000102 013737 001500 001244 MOV DQACTV, TEMP1 :GET THE ACTIVE DQ11 S$ 
670 000110 006037 001244 2$: ROR TEMP 1 ARE YOU ACTIVE.. DQ11 
671 000114 103023 BCC 5$ TIF CARRY CLEAR.. NO MORE DQ11S 
672 000116 005037 177776 CLR PS TCLEAR PS 
673 000122 005722 TST (R2)+ [PUT POINTER TO STATUS TABLE 
674 000124 012772 000340 177776 MOV #340,a-2(R2) TRY AND SET PRI/SEC DONE AND IE 
675 000132 105200 INCB RO :DELAY cosccess 
676 000134 001376 BNE \. rae tT DELAY 
677 000136 112712 000300 MOVB #300, (R2) [NO INTERUPT ASSUME 300 FIX IN TEST C 
678 000142 005722 3$: TST (R2)+ ;UPDATE POINTERS 
679 000144 000761 BR 2$ ;GO DO IT AGAIN 
680 000146 051612 4%: BIS (SP), (R2) TENTERD BY IOT TRAP BY DQ11 
681 000150 042712 000007 BIC #7,(R2) :CLEAR UNWANTED BITS 
682 000154 022626 CMP (SP)+,(SP)+ [POP IOT JUNK OFF STACK 
683 000156 012716 000142 MOV #3$, (SP) 7SET RETURN PC ON STACK 
684 000162 000002 RTI :GO HOME. 
rH 000164 000207 5$: RTS PC ALL SIZING IS DONE 
687 p***eSOFTWARE SWITCH REGISTER**** 
688 000174 =174 
689 000174 000000 DISPREG: 0 SOFTWARE DISPLAY REGISTER 
oy 000176 000000 SWREG: Q TSOFTWARE SWITCH REGISTER 
692 PROGRAM START 
693 


694 000200 .=200 


a Cr ne 


CZ7DQH 


CZDQHE .P11 


695 


000200 


MACY11_ 30A(1052) 
03-DEC-8 


000137 


000241 
006137 
005237 
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0 08:27 


001512 


001400 
001512 
001504 


030000 


100000 
000010 
177777 
000006 


020000 


002000 
001400 
001400 


010000 
030000 


040000 


004000 
001000 


000002 


164000 


001500 
001504 


001504 
001276 


001500 
001500 


000004 
000005 


000006 


000005 
000006 


000005 
000006 


000002 
000002 


000002 


=220 


CSRMAP : 


1$: 


2$: 


3$: 


JMP 


Cc ¢é 


«START 3GO TO START OF PROGRAM 
#1200, R2 CLEAR ALL STATUS TABLE 

(R2)+ :D0 CLEAR 
nisi2, R2 ALL TABLE DONE 
° m R_ IF MORE TO GO 

QNUM [SET NUMBER OF DQ11S TO 0 
#1400,R2 [SET TABLE POINTER 
#150000,R1 :GET FIRST FLOATING ADDRESS 
#5$ 044 [SET FOR TIME OUT TRAP=-NO DEVICE-- 
#12,5(R1) TRY AND SEL MISC REGISTER 
6(R1) :TRY AND CLEAR MISC REG 
#10000, (R1) TRY AND SET RX ACTIVE 
#30000 ,6(R1) ;LOOK FOR SYNC 1 AND SYNC 2 
2$ ¢ THIS IS NOT A DQ11 IF I BRANCH 
R1,(R2)+ NOW THIS IS A DQ11 --STORE CSR 
ASYNBIT, (R2) SSET FOR TWO SYNC_ CHARS 
(R1) CLEAR DQ ACTIVE BIT 
#10,5(R1) ;SEL_CHAR DET REGISTER 
#-1,6(R1) [WRITE INTO CHAR DET REG 
6(R1) WAS THE REGISTER WRITTEN? 
+0 SAPPERENTLY NO BB OPTION. 

IT, (R2) SET FOR BB OPTION 

#17,5(R1) ;SEL_POLYNO. REGISTER 
#-1,6(R1) [WRITE POLYNO.REGISTER 
6(R1) WAS REG WRITTEN?? 
. +6 :BR IF NO AB OPTION 
#ABBIT, (R2) SET FOR AB OPTION 


#1400,2(R1) ° 
ae ,2(R1) ;DID ANY OF THEM SET 


:BR IF NO BA OPTION 


#BABIT, (R2) :SET FOR BA OPTION 
#30000, stay) ‘DID .CS. .CO. SET 

+6 IF NO JUMPER 
AJUMBIT, (R2) SET FOR JUMPER 
#ACTBIT, (R2) SET FOR ACTIVE ON FIRST NON-SYNC 
#ODDBIT, (R2) SET FOR ODD VRC....... 
(R2)+ :POP POINTER 
(R1) CLEAR RCSR 
2(R1) :CLEAR TCSR 
2(R1) CLEAR AGAIN 
4(R1) CLEAR ERROR REG 
6<R1) SCLEAR SEC REG 
DQNUM ‘UPDATE NUMBER OF DQ11S 
#10,R1 ‘UPDATE CSR POINTER BY 10 (8) 
#164000,R1 SHAVE ALL FLOAT ING ADDRESSES BEEN CHECKED?? 
1$ ‘BR IF NOT ALL DONE 
DQACTV ZERO ACTIVE bolls 
DQNUM ‘WERE ANY DQ11S FOUND 
4$ sHEY BUDDY. NO DQ11S FOUND IN SYSTEM 
DQNUM,R1 = - “SAVE NUMBER OF DQ11S 
R1, SAVNUM > SAVE NUMBER FOR ACT11 

i CLEAR CARRY 

DQACTV a ACTIVE ADDRESS 
DQACTV ‘SET "BIT 


| CZD0H = MACY11._ 30A(1052) 
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N 
wi 
— 


P11 


001252 


001200 


177570 


000000 
000000 


000466 


055103 


052116 


000004 
001502 
000022 


050504 


020122 


4$: 


5$: 


-=1000 


MTITLE: 


ERRCNT: 
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-ASCIZ 


D2 


R1 

3$ 

#6, an 
DQACTV, SAVACT 
#340,a#22 
#1400,R2 
#300,RO 


#302,R1 
VE CMAP 


RO 


x 1 
#2$, (SP) 


DEC NUMBER OF DQ11S 
:BR IF MORE TO GO 

;RESET TIME OUT VECTOR 
SAVE ACTIVE 

[SET I0T TRAP PRIO: TO 7 
7SET TABLE POINTER 

;SET VECTOR START 

TSET VECTOR+2 START 

;GO FIND THE VECTORS 

i TYPE at ae GE 

il DIDN'T FIND ANY DQ11S. DON'T USE AUTO SIZE. 
“HOW CAN I TEST NO DQ11S 

;DON'T LET OPR HIT CONT. SW 

; ENTERED BY TIME OUT TRAP 

O HOME. 


<377><12>/CZDQHE0/<377>/CHAR L & INTR /<377> 


INDIRECT POINTERS 


177570 


177566 


SWITCH REGISTER POINTER 

TDISPLAY REGISTER POINTER 

TELETYPE KEYBOARD CONTROL REGISTER 
[TELETYPE KEYBOARD DATA BUFFER 
TTELEPRINTER CONTROL REGISTER 
;TELEPRINTER DATA BUFFER 


PROGRAM CONTROL PARAMETERS 


CDOOCCOWOOO 


PROGRAM VARIABLES 


SDoOoo°o0°e 


SCOPE ADDRESS FOR LOOP ON TEST 
TADDRESS OF NCXT TEST TO BE Bt: tn 
TADDRESS FOR LOCK ON CURRENT 


SEQ 0016 


ATA 
SNUMBER OF ITERATIONS THAT CURRENT TEST WILL BE EXECUTED 


[NUMBER OF ITEREATIONS COMPLETED 


[PC OF LAST ERROR CALL 


; TEMPORARY STORAGE 
s TEMPORARY STORAGE 
; TEMPORARY STORAGE 
: TEMPORARY STORAGE 


:. 
| 
| 
| 
| 
| 
| 
| 


CZDQH 
CZDQHE .P11 


| 
i 


MACY11_ 30A(1052) 


001254 


03-DEC-80 08 


000000 


— 08: PAGE 18 


E 2 


PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. 


DOOCWDODOOCOV0O 


NUM: 
-BLKW 
G 


ooo 


Digs aw STORAGE 
; TORAGE 


TRG STORAGE 

7R5 STORAGE 

ZSTACK POINTER STORAGE 
;PROGRAM COUNTER STORAGE 


SEQ 0017 


- 
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— CZDQHE.P11 03=DEC=80 08:27 PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. SEQ 0018 
821 
a6 PROGRAM CONTROL FLAGS 
824 001310 000 INIFLG: .BYTE 0 PROGRAM INITIALIZATION FLAG 
825 001311 000 STFLG: .BYTE 0 TEST START 4a 
826 001312 000 ERRFLG: .BYTE 0 ZERROR OCCURED F 
827 001313 000 LOKFLG: .BYTE 0 ;LOCK ON CURRENT TEST FLAG 
BSS 006000 =0 
830 DEFINITIONS FOR TRAP SUBROUTINE CALLS 
83 [POINTERS TO SUBROUTINES CAN BE FOUND 
ox IN THE TABLE IMMEDIATLY FOLLOWING THE DEFINITIONS 
834 {RARER AER AERA ERE AREER ARERR ARERR REA EEERAERRERR RARER RAE O RE EAS S 
835 TE EERO IUISSIEIEISISISISISIIIIIEIIIIUEISIOIUISISIISISUITIIUIOIIIUOOIIOEUCE Et tt 
836 001314 ‘ TRPTAB: 
837 104400 SCOPE=TRAP+0 ;CALL TO SCOPE LOOP AND ITERATION HANDLER 
838 001314 014474 che Bone . SCOPE 
839 104401 SCOP1=TRAP+1 CALL TO LOOP ON CURRENT DATA HANDLER 
840 001316 014606 . SCOP 
841 104402 TYPE=TRAF +2 ;CALL TO TELETYPE OUTPUT ROUTINE 
842 001320 014626 . TYPE 
843 104403 INSTR=TRAP+3 CALL TO ASCII STRING INPUT ROUTINE 
844 001322 014734 . INSTR 
845 104404 INSTER=TRAP+4 ;CALL TO INPUT ERROR HANDLER 
846 001324 015052 . INSTER 
847 104405 PARAM=TRAP+5 CALL TO NUMERICAL DATA INPUT ROUTINE 
848 001326 015104 . PARAM 
849 104406 SAVO5=TRAP+6 CALL TO REGISTER SAVE ROUTINE 
850 001330 015320 - SAVOS 
851 104407 RESOS=TRAP+7 CALL TO REGISTER RESTORE ROUTINE 
852 001332 015360 RESOS 
853 104410 CONVRT= TRAP*10 CALL TO DATA OUTPUT ROUTINE 
854 001334 015412 . CONVR 
855 104411 CNVRT=TRAP+11 CALL TO DATA OUTPUT ROUNTINE WITHOUT CR/LF. 
856 001336 015416 . CNVRT 
857 104412 MSTCLR=TRAP+12 CALL TO ISSUE MASTER CLEAR " 
858 001349 0130352 -MSTCLR 
859 104413 MEMCLR=TRAP +13 CALL TO CLEAR ALL SCRATCH PAD MEMORIES 
860 001342 012706 -MEMCLR 
861 104414 CKSWR=TRAP+14 CALL TO ALLOW SWREG TO BE LOADED FROM TTY 
862 001344 016320 . CKSWR 
863 . 104415 CNTLU=TRAP+15 CALL TO ALLOW LOADING OF SWREG FROM TTY 
aes 001346 016374 -CNTLU 
866 ; PARR RRR R RTE EEE EEE EERE EE RE RRR Eee 
867 RRR RRR RRR EERE ERE E RETR EERE EERE RRR EER EERE RARE RR ER EE 
868 ' 
54 7DQ11 VECTOR AND REGISTER INDIRECT POINTERS 
871 001350 000000 DORVEC: 0 ;POINTER TO DQ11 RECEIVER INTERRUPT VECTOR 
872 001352 000000 DQRLVL: 0 POINTER TO DQ11 RECEIVER INTERRUPT SERVICE PS 
873 001354 000000 DQTVEC: 0 POINTER TO DQ11 TRANSMITTER INTERRUPT VECTOR 
874 001356 000000 DQTLVL: Q s:POINTER TO DQ11 TRANSMITTER INTERRUPT SERVICE PS 
875 001360 000000 DQRCSR: 0 sPOINTER TO DQ11 RECEIVER CONTROL REGISTER 
0 POINTER TO HIGH BYTE OF DQ11 RECEIVER CONTROL REGISTER 


876 007362 000000 DQRCSH: 


G 2 
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877 001364 000000 DQTCSR: Q POINTER TO DQ11 TRANSMITTER CONTROL REGISTER 

878 001366 000000 DQERR: OQ :POINTER TO DQ11 ERROR REGISTER 

879 001370 000000 DQREG: 0 ‘POINTER TO HIGH BYTE OF ERROR REGISTER 

880 001372 000000 DQSEC: 0 :POINTER TO DQ11 SECONDARY REGISTER 

ae 001374 0 DOSECH: 0 ‘POINTER TO HIGH BYTE OF DQ11 SECONDARY REGISTER 

883 

884 

ot 3DQ11 STATUS TABLE AND ADDRESS ASSIGNMENTS 

887 001400 -=1400 

888 001400 000001 DQCROO: .BLKW 1 :CONTROL STATUS REGISTER FOR DEVICE NO: 00 

889 001402 000001 DQSTOO: .BLKw 1 ‘VECTOR AND CONFIGURATION STATUS FOR DEVICE NO: 00 

890 001404 000001 DQCRO1: .BLKW 1 CONTROL STATUS REGISTER FOR DEVICE NO: 01 

891 001406 001 DQSTO1: .BLKW 1 SVECTOR AND CONFIGURATION STATUS FOR DEVICE NO: 01 

892 001410 000001 DQCRO2: .BLKW 1 CONTROL STATUS REGISTER FOR DEVICE NO: 02 

893 001412 01 DQSTO2: .BLKW 1 [VECTOR AND CONFIGURATION STATUS FOR DEVICE NO: 02 

894 001414 000001 DQCRO3: .BLKW 1 ;CONTROL STATUS REGISTER FOR DEVICE NO: 0 

895 001416 000001 DQSTO3: .BLKW 1 SVECTOR AND CONFIGURATION STATUS FOR DEVICE NO: 03 
601420 000001 DQCRO4: .BLKW 1 CONTROL STATUS REGISTER FOR DEVICE NO: 04 

897 001422 0000061 DQSTO4: .BLKW 1 SVECTOR AND CONFIGURATION STATUS FOR DEVICE NO: 04 

898 001424 009001 DQCROS: .BLKW 1 CONTROL STATUS REGISTER FOR DEVICE NO: 05 
001426 000001 DQSTOS: .BLKW 1 [VECTOR AND CONFIGURATION STATUS FOR DEVICE NO: 05 

900 001430 0n1 DQCRO6: .BLKW 1 CONTROL STATUS REGISTER FOR DEVICE NO: 06 

901 001432 000001 DQSTO6: .BLKW 1 [VECTOR AND CONFIGURATION STATUS FOR DEVICE NO: 06 

902 001434 000001 DQCRO7: .BLKW 1 [CONTROL STATUS REGISTER FOR DEVICE NO: 07 

903 001436 000001 DQSTO7: .BLKW 1 :VECTOR AND CONFIGURATION STATUS FOR DEVICE NO: 07 
001440 000001 DQCR10: .BLKW 1 CONTROL STATUS REGISTER FOR DEVICE NO: 10 

905 001442 000001 DQST10: .BLKW 1 [VECTOR AND CONFIGURATION STATUS FOR DEVICE NO: 10 

906 001444 00000 DQCR1*: .BLKW 1 CONTROL STATUS REGISTER FOR DEVICE NO: 11 

907 001446 000001 DQST11: .BLKW 1 SVECTOR AND CONFIGURATION STATUS FOR DEVICE NO: 11 

908 001450 000001 DQCR12: .BLKW 1 CONTROL STATUS REGISTER FOR DEVICE NO: 12 

909 001452 1 DQST12: .BLKW 1 [VECTOR AND CONFIGURATION STATUS FOR DEVICE NO: 12 

910 001454 0001 DQCR13: .BLKW 1 =CONTROL STATUS REGISTER FOR DEVICE NO: 13 

911 001456 000001 DQST13: .BLKW 1 [VECTOR AND CONFIGURATION STATUS FOR whey NO: 13 

12 001460 001 DQCR14: .BLKW 1 ;CONTROL STATUS REGISTER FOR DEVICE NO: 
13 001462 000001 DQST14: .BLKW 1 [VECTOR AND CONFIGURATION STATUS FOR DEVICE NO: 14 

914 001464 0 1 DQCR15: .BLKW 1 :CONTROL STATUS REGISTER FOR DEVICE NO: 15 

915 1 000001 DQST15: .BLKW 1 :VECTOR AND CONFIGURATION STATUS FOR evils NO: 15 

916 001470 000001 DQCR16: .BLKW 1 :CONTROL STATUS REGISTER FOR DEVICE NO: 16 

917 001472 000001 DQST16: .BLKW 1 :VECTOR AND CONFIGURATION STATUS FOR DEVICE NO: 16 

3918 001474 000001 DQCR17: .BLKW 1 CONTROL STATUS REGISTER FOR DEVICE NO: 17 

919 001476 000001 DQST17: .BLKWw 1 'VECTOR AND CONFIGURATION STATUS FOR DEVICE NO: 17 

920 001500 000001 DQACTV: .BLKW 1 THOLD ACTIVE BITS FOR TESTING 

921 001502 000001 SAVACT: .BLKW 1 7 SAV — NUMBER OF ACTIVE DQ11S 

922 001504 DONUM: .BLKW 1 OCTAL NUMBER OF TOTAL NUMBER OD DQ11S 

923 001506 000001 DQCSR: .BLKW 1 SCSR OF DQ11 UNDER TEST 

ace 001510 000001 DQSTAT: .BLKW 1 [VECTOR AND CONFIGURATION STATUS OF DQ11 UNDER TEST 

926 PROGRAM INITIALIZATION 

er - os LOCK OUT INTERRUPTS 

928 SET UP PROCESSOR STACK 

929 SET UP POWER FAIL VECTOR 

930 CLEAR PROGRAM CONTROL FLAGS AND COUNTS 

44h 7TYPE TITLE MESSAGE 


¢Z7DQH 


C2DQHE . Pll 
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001512 
001520 


pig xe 


012737 
012737 


104414 
027737 


000001 
001512 


177570 


177777 


000176 


000042 
001310 
001000 


001310 
000176 


177232 


177252 


000002 
000001 


177140 


177776 
000024 
001276 
001300 
001226 
001214 
001200 
001202 


000004 
177326 


001200 
001202 


001200 


001244 
001246 


001244 
177160 


001502 


H 2 
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8:27 PROGRAM INITIALIZATION AND START UP. 


LOCK a # + rama. 
TSET UP S 
SET UP POWER FAIL VECTOR 


:CLEAR START FLAG 
;CLEAR PASS COUNT 
;CLEAR ERROR FLAG 


CLEAR ERROR COUNT 

[CLEAR LAST ERROR POINTER 
:SET UP FOR TEST 1 

SET UP FOR POWER FAIL BEFORE 
TESTING STARTS 

[MOV HARDWARE SWR TO SWR 

[MOV DISPLAY LIGHTS TO LIGHTS 
SAVE VECTORS 


3SET UP FOR TIMEOUT 
;REFERENCE HARDWARE SWITCH REGISTER 


;ADJUST STACK 

[POINT TO SOFTWARE SWITCH REG 
;POINT TO SOFT DISPLAY REG 
TRESTORE VECTORS 


UNDER MONITOR 


BNE 67$ 
x. ee ae OF CODE MOVED TO an PRA2757 (JUNE 78)****** 


«START: MOV #340,PS 
MOV MSTACK,SP 
MOV #.PFAIL ,a#24 
MOV DQNUM , SAVNUM 
CLRB STFLG 
CLR PASCNT 
CLRB ERRFLG 
CLR RUNF LG 
MOV #1400, CREAM 
CLR ERRCNT 
CLR LSTERR 
MOV #1,TSTNO 
MOV #. START ,RETURN 
MOV #DSWR,SWR 
MOV ADLIGHTS,LIGHTS 
MOV a6 ,- (SP) 
MOV ar4 ,- (SP) 
MOV #64$ , 044 
CMP #-1,aSWR 
BEQ 65$ 
BR 66$ 
64$: CMP (SP) +, (SP) + 
65$: MOV #SWREG, SWR 
MOV #DISPREG,LIGHTS 
66$: MOV (SP) +,a#4 
MOV (SP) +, a6 
TST a42 
E 12$ 
TYPE eMTITLE 
COMB INIFLG 
CMP #SWREG, SWR 
BNE 67$ 
CNTLU 
67$: TSTB aSwWR 
BMI +6 
JSR PC, CSRMAP 
TYPE -XHEAD 
MOV #1400, TEMP 1 
MOV @TEMP1, TEMP2 
BEQ -*16 
CONVRT 
XSTATQ 
ADD #2, TEMP) 
BR ~ 
12$ BIT #SWO00,aSWR 
BEQ 1$ 
TYPE 
MNE W 
CLR RO 
HALT 
CKSWR 
CMP @SWR,SAVACT 


INITIALIZATION BEEN PERFORMED? 
IF YES, BR 
TYPE TITLE MESSAGE 


7 1F NOT SET FLAG AND INIT 


S SWREG USED 


SEQ 0020 


| CZDQHE.P11 


C7D0H MACY11 30A(1052) 
03=DE(-80 


989 002042 101404 
990 


1004 002114 001372 


1008 C02116 012737 
1009 002124 012706 


1010 002130 005737 
1011 002134 0010 
1012 002136 104414 
1013 002140 032777 
1014 002146 001411 
1015 002150 104 
1016 002154 012737 
1017 002162 012737 
1018 002170 

1019 002172 013737 
1020 013737 


I 2 
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08:27 PROGRAM 


177120 001500 118: 
001500 


000300 1$: 
000302 

2$: 
001000 


000340 177776 .BEGIN: 
001200 
000042 


000004 177032 


016670 
000240 014504 
000240 014506 


014602 014504 1$: 
014604 014506 
000002 176764 2$: 


-BYTE 
-BYTE 


002254 001214 3$: 
016560 4$: 
176740 

s Test 


SEERA ERE EEE AEE EEE ERE EERE EEK 


000001 001226 TsT1: 
002644 001214 
002644 001216 


000001 001304 
000020 001306 
001302 


INITIALIZATION AND START UP. 


BLOS 11$ 


.-2 
MOV @SWR ,DGACTV 
MOV DQACTV,RO 


HALT 

CKSWR 

MOV #390,R0 
MOV #302,R1 

MOV R1,(RO)+ 
CLR (R1)+ 

CMP (RO) +, (R1)+ 
CMP #1000,R0 
BNE 2$ 


3: TEST START AND RESTART 


MOV #340,PS 
MOV AMSTACK,SP 
aA42 


TST 

BNE 3$ 

CKSWR 

BIT ARIT2,ASWR 
BEQ 1$ 


TYPE -MLOCK 
MOV #NOP,TTST 
MOV + gallate 


MOV BRW,TTST 
MOV BRX,TTST+#2 
BIT | ailedeamnt 


4$ 
MOV #TST1, RETURN 


-MR 

; @RE TURN 
MOV #1,TSTNO 

MOV #7512 ,RETURN 
MOV A#TST2,NEXT 
TST8 peers 


MOV #B1T0,RUN 
MOV #16, ,RUNCNT 
COMB RUNF LG 





;LOCK A os 
:SET UP S 


iIS PROGRAM. UNDER MONITOR CONTROL 


sCHECK FOR <*G> 
sCHECK FOR LOCK ON TEST 


;SET UP TO LOCK 


:START AT TEST 1 
: TYPE R 
sSTART TESTING 


71S THIS MY 18 Set TIME HERE? 


ER 
:SET FOR MAX OF 16 DQ11°S PER SYSTEM 
[SET RUN FLAG 


SEQ 0021 


;LOCK NOT SELECTED, SET UP FOR NORMAL SCOPE LOOP 
31F SwO1=1, GET STARTING PC 


| CZ7DQH MACY11 30A(1052) 
| CZ2DQHE.P11 


002324 
002332 


033737 
32 


005237 
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001304 
001500 
001304 
000004 
001306 
000020 


001400 
000001 


001304 


001500 


001300 


001306 
001300 
001304 


001506 


001362 
001364 


001370 
001372 
001374 


1$: 


28: 


3$: 


J 2 


RUN ,,DQACTV 
DQACTV 
2$ 


RUN 
#4,CREAM 
oe 


#15. ,RUNCNT 
#1400,CREAM 
un 


“~? 


RUN 
@CREAM,DQCSR 
#2,CREAM 
@CREAM,DQSTAT 
#2,CREAM 
DQCSR,DQRCSR 
DQSTAT,DQRVEC 
#177007 ,DQRVEC 
DORVEC ,DQRLVL 
#2,DQRLVL 
eee ,DQTVEC 
DOT VEC DOTLVL 


#2,DQTLVL 
DQRCSR,DQRCSH 


DQRCSH 

ag tel —— 
#2,D 

DOrcSR. DOERR 
#2,DQERR 
DOERR , DQREG 
DQREG 

DOQREG ,DQSEC 
DQSEC 

DQSEC ,DQSECH 
DQSECH 


“ 


4% 


:DQ11 HELL RAMSER | 
“THIS TEST WILL EXERC 
p01) RECEIVER AND TEIR 


sENTER T 
VRC 
: THE CABLE AND TURN AROUND 


AND EXIT T CIF’ AB 


; CHARACTER TRANSFERS. 


I_ FOUND 


FIND AN ACTIVE DQ11 TO TEST. 
BR IF ONE TO TEST. 
FIND OUT IF THERE ARE NO DQ11 ACTIVE. 


SEQ 0022 


‘BR TO FATAL ERROR. WHY AM I HERE IF NO ACTIVE 0011'S??? 


CLEAR ALL THE CONDITION CODES OF CPU 


[UPDATE RUN POINTER 
UPDATE ADDRESS POIN 


TER 
C NUMBER OF TIMES I LOOKED AT ACTIVE. 
‘BR «AND KEEP LOOKING. 


START RESTORING MY POINTERS. 


ZSTICK HERE ON CONT. 
;CLEAR CPU COND. 


CODES 
[UPDATE RUN. ACTIVE DQ11 FOUND. 
[PLACE ADDRESSS OF DQ11 AT DQCSR 


: ER 
PLACE STATUS OF DQ11 AT DQSTAT 
UPDATE ADDRESS POINTER 


; GENERATE 
; GENERATE 
7 GENERATE 
7 GENERATE 
; GENERATE 
; GENERATE 
; GENERATE | 


ADDRESS OF RECEIVER INTERRUPT SERVICE PS 
ADDRESS OF TRANSMITTER INTERRUPT VECTOR 


ADDRESS 
ADDRESS 
ADDRESS 
ADDRESS 
ADDRESS 
ADDRESS 


oy 


SITTER INTERUPTS 
AB OPTION INSTALLED) 


(DATA 


ONi Y > 


RESTORE og tea 


; N 

SALLERT OPERATOR OF FATAL ERROR 
NO DQ11 ACTIVE. WHY AM I 
YOU MUST RELOAD DQ11 DIAGNOSTIC!! 


HERE??? 


OF TRANSMITTER INTERRUPT SERVICE PS 


OF 
OF 


HIGH B 


TRANSMITTER CONTROL REGISTER 
ERROR REGISTER 

HIGH BYTE OF ERROR REGISTER 
SECONDARY REGISTER 


HIGH BYTE 


—————— ——— eee 


eS 
| 
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MACY11_ 30A(1052) 
03=DEC=80 08:27 


012777 


03-DEC=80 08:29 PAGE 2 
PROGRAM IN 


000002 


003756 


100000 


000377 
013656 


000026 
013026 


014302 


000010 
000017 
123456 


013054 
000177 


013662 


093502 


s 


001226 


001216 


001510 
013052 


013052 
013656 


176406 
176374 
176362 
176350 
176336 
176324 
176312 
1658 
176264 


176252 
001510 


176234 


176224 
176220 


176136 


TEST 2 


TUTTE CCC CTC CACACACAACACAAAASA PSAP APES ERPS EES ESS EARS RAR A RAR ASA LES AS EDS! 


TST2: 


1$: 
2$: 


SETON: 


1$: 


2$: 


MOV 


‘ a 
ITIALIZATION AND START UP. 


#TST3,NEXT 


SYNC CHARACTERS. 


#SYNBIT ,DOSTAT 
#377, SYNC 
XSYNC 

#26,SYNC 
#13026, XSYNC 
GDCHAR 

CHAR 

PS 

@DOREG 
#RXBUF F , @DASEC 
@DQREG 
#-200,aDQsEC 
@DOREG 
ASYNC , @DQSEC 
@DOREG 

#-202 ,aDQSEC 
@DOREG 
AXRXBUF , @DASEC 
@DOREG 

#-200, @DQSEC 
@DOREG 
#XTXBUF , @DQSEC 
@DQREG 

#-200 ,aDQSEC 
aDQREG 
#104000, aDQSEC 
#JUMBIT.DQSTAT 
+10 
#B1T3,aDQSEC 
#17, @DQREG 
#123456, aDQSEC 
#TXBFA,RO 
#177,R3 

R3, (RO) + 

R3 

1$ 

#XTXBUF -RO 

R3, (RO)+ 

R3 


2$ 
#RXISR,ADOQRVEC 


ONE SYNC CHAR OR TWO? 
;BR IF TwO 


‘SET ONE SYNC. 
“DBL SYNC SET TO ONE. 
: CONT 


;LOAD FOR TWO SYNC 

SAME FOR DBL SYNC 

:CLEAR ALL REGISTERS GIVE MSTCLR 
;ZERO POINTER 


;ZERO PROC. PRIO. 

;SEL_ THE RX BA PRI. 

;LOAD RX BA PRI. 

7SEL RX WC PRI. 

SET FOR 200 (8) CHARS 

7SEL THE TX BA PRI. 

;LOAD WITH SYNC POINTER 

3SEL THE TX WC PRI. 

SET FOR.2 SYNC AND 200 (8) CHARS. 
; BA SEC 


seep 


SEL RX WC SEC 
SET FOR 200(8) CHARS 
yg TX BA SEC 


LOAD IT 

SEL THE TX WC SEC 

SET FOR 200 CHARS 

7SEL THE SYNC REGISTER 

;LOAD SYNCS 

:SEL THE MISC REGISTER 

SET 8 BITS PER CHAR AND VRC ENABLE. 
31S JUMPER AT END OF CABLE? 

7;BR IF YES 

NO CABLE SET TEST LOOP FOR DATA TURN AROUND 
SEL THE POLY REGISTER 

SET PLOYNOMIAL. 


sSTART TO FILL TX BUFFERS 

; COUNTER 

:PRIMARY IS BINARY COUNT BACKWARDS. 
DONE? 


NO 

“SET SEC BUFFER 

“SECONDARY IS BINARY COUNT 
* DONE ? 


=NO 
:SET RECEIVER INTERUPT POINTER 


SEQ 0023 


L 
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1157 003212 012777 000240 176332 MOV #240 ,aDQRLVL ;SET PRIO: TO 5 

7158 003220 012777 003334 176126 MOV #TXISR,@DQTVEC ;SET TX VECTOR 

1159 003226 012777 000240 176122 MOV #240, aDQTLVL > SET PRIO TO 5 

1160 003234 012777 000041 176116 MOV #81T5+B1T0,aDQRCSR SET RX GO AND 

1161 003242 012777 000051 176114 MOV #8115+BI1T3+BITO, ryt hig :SET TX GO AND IE AND ERROR IE 
1162 003250 005037 001246 CLR TEMP2 TIMER 

1163 003254 012737 000113 001250 MOV #75., TEMPS :SET NUMBER OF INTERUPTS WANTED 
1164 003262 012737 000020 001252 48: MOV #16. TEMPS 7SET FOR 16 REGISTERS 

1165 003270 142777 000017 176072 BICB #17, aDQREG 7SEL RX BA PRI. 

1166 003276 105777 176066 3$: TSTB @DQREG SIT HERE AND MAKE WAVES 

1167 003302 005777 176064 TST aDQSEC [WHILE INTERUPTS OCCUR 

1168 003306 105277 176056 INCB @DQREG AT Aol el dels hal, hel hela hale hale hala hala hols halashal 

1769 003312 005337 001252 DEC TEMP4 TRARARARARA RAR RAR RHR RO 

1170 003316 001367 BNE 3$ 3 SAME 

1171 003320 005237 001246 INC TEMP2 [UPDATE COUNTER 

1172 03324 001356 BNE 4$ SKEEP GOING 

1173 003326 104005 HLT 5 RX FAILED TO CONTINUSLY ott ie 
1174 y*****STRONGLY SUGGEST SWO8=1 (GOTO TOP OF TEST OF ERROR 
1175 003330 000754 BR 4$ [KEEP IT GOING. 

| C03332 104400 ENDTS2: SCOPE :SCOPE THIS TEST...... 

1178 

1179 003334 017737 176026 014266 TXISR: MOV @DQERR,ERR zANY ERRORS 

1180 003342 100001 BPL +4 BR IF NO 

1181 003344 104004 HLT 4 [D011 ERROR FLAG IS SET 

1182 j*****STRONGLY SUGGEST SwO8=1 (GOTO TOP OF TEST OF ERROR 
1183 003346 032777 000004 176010 BIT #B1T2,@DQTCSR WHO SHOULD I SERVICE PRI OR SEC? 
1184 003354 001425 BEQ 1$ 3;BR IF SEC NEEDS SERVICE 

1185 003356 112777 000002 176004 MOVB #2, aDQREG SEL TX_BA PRI 

1186 003364 042777 000200 175772 BIC #BIiT7,aDQTCSR CLEAR TX PRI DONE. 

1187 003372 012777 013054 175772 MOV #TXBFA,@DQSEC ;LOAD THE TX BA PRI 

1188 003400 105277 175764 INCB @DQREG ;SEL THE TX WC PRI. 

1189 152777 000120 175756 BISB #B1T6+B1T4 ,aDQREG 7SET WRITE EN. AND ENTER T 
1190 003412 012777 177600 175752 MOV 4-200 ,aDQSEC ;LOAD TX WC PRI. 

1191 003420 142777 000017 175742 BICB #17, aDQREG CLEAR REG POINTER. 

1192 003426 RTI zEXIT STAGE RIGHT 

1193 3430 042777 000100 175726 18: BIC #B1T6,aDQTCSR ;CLEAR TX SEC DONE 

1194 003436 112777 000006 175724 MOVB #6, aDQREG ;SEL THE TX BA PRI. 

1195 3444 012777 013662 175720 MOV AXTXBUF ,@DQSEC ;LOAD THE TX BA SEC 

1196 003452 105277 175712 INCB @DQREG SEL THE TX WC SEC 

1197 003456 152777 0000 175704 BISB #B1T5+BI1T4 ,aDQREG SET WRITE EN. AND EXIT T 
1198 0034 012777 177600 175700 MOV 4-200 ,aDQSEC LOAD THE TX WC SEC 

1199 003472 142777 000017 175670 2$%: BICB #17, aDQREG CLEAR REG POINTER 

fs 003500 000002 RTI sEXIT STAGE LEFT. 

1202 003502 RXISR: 

1203 003502 005037 001246 CLR TEMP2 sLET TIMER KNOW THAT RX INTERUPTED 
1204 003506 017737 175654 014266 MOV @DQERR,ERR ANY ERRORS 

1205 003514 100001 BPL +4 BR IF NO 

1206 003516 104004 HLT 4 7DQ11 ERROR FLAG SET!!!! 

1207 y*****STRONGLY SUGGEST act 1 (GOTO TOP OF TEST OF ERROR 
1208 003520 032777 000004 175632 BIT #BI1T2,aDQRCSR ;WHO SERVICE PRI OR SEC 

1209 003526 001426 BEQ 2$ 7BR IF SEC NEEDS SERVICE 

1210 003530 042777 000200 175622 BIC #BIT7,@DQRCSR ;CLEAR RX PRI. DONE 

1211 003536 105077 175626 CLRB @DQREG [SEL RX BA PRI. 

1212 003542 012777 013256 175622 MOV #RXBUFF ,ADQSEC ;LOAD IT 


_———___-_--—— 
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1213 003550 105277 175614 
1214 003554 152777 000120 175606 
1215 003562 012777 177600 175602 
1216 003570 012701 013054 
1217 003574 012702 013256 
1218 36 1s? §©6003656 1$ 
1219 003604 042777 000100 175546 2$ 
1220 003612 112777 004 175550 
1221 3620 012777 014064 175544 
1222 003626 105277 175536 
1223 003632 152777 000060 175530 
1224 003640 012777 177600 175524 
1225 003646 012701 366 
see 014064 


000012 175464 


175460 
114237 014274 


005300 7$: 
001250. 


000005 5$: 
003332 


000017 


| 
| 
| 
003652 012702 
27 003656 012700 000200 3$: 
1228 003662 142711 000200 4$: 
1229 003666 142712 000200 
1230 003672 122122 
175414 6$: 


@DQREG 


#BIT6+BI1T4, apanes 


#-200 ,aDQSEC 
#TXBFA,R1 
#RXBUF F ,R2 


He 


#XRXBUF ;aDQSEC 
wBITS+B1T4. 4 ,ADORES 


#-200,a 
#XTXBUF , Ri 
#XRXBUF ,R2 


(R1)+, (R2)+ 
7$ 

#12, aDQREG 
#B1T1 ,aDQseCc 


-(R1),GDCHAR 
—— 


(R1)+,(R2)+ 
RO 

4$ 

TEMPS 

6$ 


#ENDTS2, (SP) 
#17, aDQREG 


3$ 
#B1T6,aDQRCSR 
@DQREG 


M 2 
PAGE 26 
PROGRAM INITIALIZATION AND START UP. 


SEL THE RX WC PRI. 
;SET WRITE EN. AND ENTER T 
LOAD RX 


WC SEC 
:PREPARE TO CHECK DATA. SET TX PUINTER 
3SET RX POINTER 
3GO_ AND CHECK DATA 
;CLEAR RX SEC DONE 
7SEL RX BA SEC 
AD IT 
EL THE RX oc SEC 
;SET WRITE EN. AND EXIT 7¢ 
ITE RX WC SEC 
:GET TX BUFFER POINTER 
+4! RX POINTER 
3GET NUMBER OF CHARS 
;CLEAR VRC 


SEL MISC REG 
STOP THE DQ11 CLOCK. 
STORE GOOD CHAR 
;STORE BAD CHAR. 
[DATA COMPARE ERR 
3 *****STRONGLY SUGGEST SwO8=1 (GOTO TOP OF TEST OF ERROR 
[POP POINTERS 
ALL DATA CHECKED? 
F NO 


I 
TALL INTERUPTS DONE? 


[SET FOR END TEST RETURN 


CLEAR REG POINTER 


TEXIT STAGE MIDDLE 


SEQ 0025 


CZ2DQHE .P11 


SRPSRREEEELE 


w= 


VASRENRENSRG: 
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012737 
012737 


012701 
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08:27 


000003 
004324 


013256 


000011 


001510 
001246 
012370 
001247 
001246 
001246 
001246 
175252 
000010 
000016 
175234 
000002 


175132 
175120 
000001 


012376 
013256 





001226 
001216 


175352 


001246 


A 


001247 


012372 
012374 
175260 


175246 


175226 
175220 


175206 
175174 
175162 
175150 


TEST OF TRANSMITTER AND RECEIVER ee LENGHTHS 


N 2 


STHIS TEST WILL XMIT AND RECV CHARACT 
SAT 2 BITS/PER/CHAR. 
:DATA CHECKING WILL BE PERFORMED! 


; Yes’ 5 


SRE AERRAEEKEER EERE REE RE REEREEAKEEEEEKEERAEEEERECEREEEKER EEE e ee eee 


TST3: 


S$: 


10$: 


1$: 


2$: 


#3,TSTNO 
#TST4 NEXT 


#RXBUF F ,RO 
R1 

(RO) + 

R1 


5¢ 

#11, aDQREG 
SYNC, TEMP2 
#177774. MASK 
MASK, TEMP2 
DOSTAT 

10$ 


TEMP2 
MASK, TEMP2+1 


TEMP2+1 
TEMP2,SYNC1 
TEMP2,SYNC2 
TEMP2 ,@DQSEC 


@DQREG 
#B1T3,aDQSEC 
#16,R0 

RO, @DQSEC 
#81T1,aDQSEC 
#BIT1,aDQSEC 
@PQREG 
#RXBUF F ,A@DQSEC 
@DQREG 

#-36. ,aDQSEC 
@DQREG 

#SYNC2 ,ADQSEC 
@DQREG 


1 
#TXBUFF ,RO 
#RXBUF F RI 


CLEAR ALL THE DQ11 
sLOAD THE BUFFER POINTER 
SET UP TO CLEAR THE BUFFER 


sCLEAR IT 
et 
;BRAN 
SLOAD SYN 

ZLOAD THE COASK 


:SET UP A MASK TO GET THE 
aes SYNC CHARACTER? 


S.BR. 
‘CORRECT SYNC CHARACTER 
ok THIS E DATA TO LENGTH 


MANIPULATE 
UP 


> COME WITH THE 
;PROPER SYNC. CHARACTER 
ae THE CHARACTER 


2bIT 

OAD THE SYNC REGISTER 

sSEL THE MISC REGISTER 
TEST LOOP 


;SET 
:ELIP THE BYTES 


ae en LENGTH 


; SET 
TURN CLOCK 
SAND ON 


zSEL RX pes ADRESS 


:SET ADRESS 


zSEL RX ag ae CHAR COUNT 


SET CHAR 


COUN 
2SEL_ TX PRIMARY ADDRESS 
[LOAD THE SYNC CHAR 
7SEL TX PRI ao COUNT 


31S DONE UP? 
—" IF YES 


;BR_IF MORE w GO 


sERROR=-NO R 


X DONE 
. ;LOAD BUFFER POINTER 
;LOAD RX BUFFER POINTER 


H IF 
SELECT —_ "SYNC REG 


SEQ 0026 


zi++D 
ii+4D 


7i++D 


aie a ee ee 


‘ 
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CAAA AAI 
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: 

vw 

oO 


refer 
8 
g 


001246 
012370 


RRREELEESE 
SOWNAARWN 5S 
= 
4 


1 
1 
1 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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105277 174620 
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0012 
0012 


—N 
an 


175004 


001246 


001247 


012372 
012374 
174712 


174700 


174660 
174652 


174640 
174626 


B 3 


33 MOV #36. ,R2 ;SET UP TO COUNT CHARACTERS 

MOVB (RO)+,R5 ;GET A CHARACTER TO COPMARE 

CLR TEMP2 sé 

MOVB (R1)+, TEMP2 7GET REC CHARACTER 

MOV TEMP2 ,R4 sMOVE TO R4 

BIC MASK ,R5S sMASK OUT UNWANTED BITS 

CMP R5,R4 7D0 THE CHARACTERS MATCH? 

BEQ 4$ ;BR IF OK 

HLT 2 ;ERROR==DATA DOESN'T MATCH 
4$: DEC R2 ;ALL DONE? 

E 3$ sNO=-GO BACK FOR MORE 

SCOPE :SCOPE THIS TEST 

TEST OF TRANSMITTER AND RECEIVER CHARATER LENGHTHS 

:THIS TEST WILL XMIT AND RECV CHARACTERS 

;AT 3 BITS/PER/CHAR. 

DATA CHECKING WILL BE PERFORMED! 
; TEST 4 
{RARE RARAEE ARERR RARER EEE AA AREA EEE A ERE RARER ER RER ARR E RARE EES 
TST4: MOV #4,TSTNO 

MOV ATSTS,NEXT 

MEMCLR :CLEAR ALL THE DQ11 

MOV ARXBUF F ,RO sLOAD THE BUFFER POINTER 

CLR R1 ;SET UP TO CLEAR THE BUFFER 
5$: CLR (RO) + ;CLEAR IT 

INCB R1 DONE? 

BPL 5$ ;BRANCH IF NO 

MOVB #11, aDQREG :SELECT THE SYNC REG 

MOV SYNC, TEMP2 ;LOAD SYNCS 

MOV #177770,MASK sLOAD THE MASK 

BICB MASK, TEMP2 :SET UP A MASK TO GET THE 

TST DQSTAT :SINGLE SYNC CHARACTER? 32+4+D 

BPL 10$ :IF YES,BR. si+4D 

CLC :CORRECT SYNC CHARACTER 

RORB TEMP2 sFOR THIS CHARACTER LENGTH 
10$: BICB MASK, TEMP2+1 sMANIPULATE DATA TO 23440 

CLC :COME UP WITH THE 

RORB TEMP2+1 ;PROPER SYNC CHARACTER 

MOV TEMP2,SYNC1 ;LOAD THE CHARACTER 

MOV TEMP2,SYNC2 ;DITTO 

MOV TEMP2 ,aDQSEC sLOAD THE SYNC REGISTER 

INCB G ;SEL THE MISC REGISTER 

V #B1T3,aDQSEC ;SET TEST LOOP 

MOV #15,R0 f 

SWAB R :FLIP THE BYTES 

BIS RO, aDQSEC :SET CHARACTER LENGTH 

BIS #B1T1,a@DQSEC ; TURN CLOCK OFF... 

BIC #B1T1,aDQSEC ;AND ON 

CLRB @DQREG ;SEL RX PRIMARY ADRESS 

MOV MRXBUFF,@DQSEC ;SET ADRESS 

INCB @DQREG :SEL RX PRIMARY CHAR COUNT 

MOV #-36. ,aDQSEC ;SET CHAR COUNT 

INCB @DQREG :SEL TX PRIMARY ADDRESS 


SEQ 0027 
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é 


SSE 


RO 
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: 


104400 
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38 


012737 


013737 


—~w 

(NINIANIWINWNWS 

SSSEKSRES 
CON On SWI 


03=-DEC-80 08: 
08:27 


012374 
174606 
177732 
174564 
174564 


174552 
000001 
012376 


013256 
000044 


001246 


012370 


000005 
005240 


013256 


000011 
013052 
177760 
012370 
001510 


001246 
012370 


001247 
001246 
001246 


174614 
174602 


001226 
001216 


174436 
001246 
012370 
001246 
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1$: 


2$: 


3$: 


4$: 


¢ YES’ 


c 3 


ASYNC2,@DQSEC 


@DQREG 
4-38. , @DQSEC 
@DQRCSR 
aDQTCSR 

R5 

@DQRCSR 

2$ 

#1,R5 

" 

ATXBUFF ,RO 
ARXBUF F ,R1 
#36. ,R2 
(RO)+,R5 
TEMP2 
(R1)+,TEMP2 
TEMP2 ,R4& 


MASK ,R5 
. 2R4 


;LOAD THE SYNC CHAR 
SEL TX PRI CHAR COUNT 
SET CHAR COUNT 


START TIMING 
31S DONE UP? 
;BRANCH IF YES 
;WAIT 


;BR_ IF MORE TO GO 
Z;ERROR=-NO RX DONE 

;LOAD BUFFER POINTER 

;LOAD RX BUFFER POINTER 
SET UP TO COUNT CHARACTERS 


;GET A CHARACTER TO COPMARE 


GET REC CHARACTER 

sMOVE TO R4 

MASK OUT UNWANTED BITS 
7DO THE CHARACTERS MATCH? 


;BR_ IF OK 

Z;ERROR=-DATA DOESN'T MATCH 
ALL DONE? 

;NO=-GO BACK FOR MORE 
;SCOPE THIS TEST 


TEST OF TRANSMITTER AND RECEIVER CHARATER LENGHTHS 
THIS TEST WILL XMIT AND RECV CHARACTERS 

zAT 4 BITS/PER/CHAR. 
DATA CHECKING WILL BE PERFORMED! 


5 


Re HIT TTI RRR EERE REE RRR EEE EEE EE EERE EEK 


TSTS: 


5$: 


10$: 


#5,TSTNO 
ATST6,NEXT 


#RXBUF F ,RO 
R1 

(RO) + 

R1 

n 


a 

#11, a@DQREG 
SYNC, TEMP2 
#177760,MASK 
MASK, TEMP2 
DOSTAT 

10$ 


TEMP2 
MASK, TEMP2+1 


TEMP2+1 
TEMP2,SYNC1 
TEMP2 ,SYNC2 


sCLEAR ALL THE DQ11 

:LOAD THE BUFFER POINTER 
:SET UP TO CLEAR THE BUFFER 
sCLEAR IT 

DONE? 

:;BRANCH IF NO 

sSELECT THE SYNC REG 

;LOAD SYNCS 

;LOAD THE MASK 

:SET UP A MASK TO GET THE 


:SINGLE SYNC CHARACTER? 32++D 
sIF YES,BR. ri¢eD 
: CORRECT SYNC CHARACTER 

:FOR THIS CHARACTER LENGTH 

sMANIPULATE DATA TO riteD 


;COME UP WITH THE 
PROPER SYNC CHARACTER 
1 CHARACTER 


SEQ 0028 


| CZDQH 
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MACYi1 30A(1052) 
03-DEC-80 


005266 
005270 


013777 


104400 


D 3 
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08:27 

001246 
174336 
000010 
000014 


174320 


174216 
174204 
000001 


012376 
013256 
0u0044 


001246 


012370 


000006 


174344 
174332 


174312 
174304 


174272 
174260 
174246 
174234 


001226 


005606 001216 


013256 


1$: 


2s: 


MOV TEMP2 ,aDQSEC 
INCB DQREG 

MOV #B1T3,aDQSEC 
MOV #14,RO0 

SWAB 

BIS 


RO, @DQSEC 
BIS #B1T1,aDQSEC 
BIC #B1T1,aDQSEC 


3$: 


4$: 


CLRB @DQREG 
MOV A#RXBUF F ,ADQSEC 
INCB @DQREG 
MOV #-36. ,ADQSEC 
INCB a@DQR 
MOV odes ft aDQseCc 
INCB QRE 
MOV 738, , @DQSEC 
INC aDQRCSR 
INC @DQTCSR 
CLR R5 
TSTB @DQRCSR 
BMI 2$ 
ADD #1,R5 
BNE 1$ 
HLT 1 
MOV A#TXBUFF ,RO 
MOV #RXBUFF ,R1 
MOV #36. ,R2 
MOVB (RO)+,R5 
CLR TEMP2 
MOVB (R1)+, TEMP2 
MOV TEMP2 ,R4 
BIC MASK ,R5 
CMP R5,R4 
BEQ 4$ 
HLT 
DEC R2 
E 3$ 
SCOPE 


;LOAD THE SYNC REGISTER 
SEL THE MISC REGISTER 
;SET TEST LOOP 


SFLIP THE BYTES 
SET CHARACTER anette 
by ae K OFF... 


7 AND 

SEL RX PRIMARY ADRESS 
TSET ADRESS 

SSEL RX PRIMARY CHAR COUNT 
:SET CHAR COUNT 

TSEL TX PRIMARY ADDRESS 

+ LOAD THE SYNC CHAR 

;SEL TX PRI CHAR COUNT 
7SET CHAR COUNT 


ZSET RX GO 
;SET TX GO 


START TIMING 
ONE UP? 


31S D 
BRANCH IF YES 


WAIT 

:BR IF MORE TO GO 
;ERROR--NO RX DONE 

;LOAD BUFFER POINTER 

[LOAD RX BUFFER POINTER 
SET UP TO COUNT CHARACTERS 


:GET A CHARACTER TO COPMARE 
:GET REC CHARACTER 


;MOVE TO R4 
;MASK OUT UNWANTED BITS 
3;DO0 THE CHARACTERS MATCH? 


BR IF OK 

;ERROR--DATA DOESN'T MATCH 
zALL DONE? 

3NO--GO BACK FOR MORE 
TSCOPE THIS TEST 


;TEST OF TRANSMITTER AND RECEIVER CHARATER LENGHTHS 
THIS TEST WILL one AND RECV CHARACTERS 


TAT 5 BITS/PER/CHAR 


ZDATA CHECKING WILL "BE PERFORMED! 


LREREERERA AEE EERE AAA ATTA AAA AAA AAA LARA AA TEA A A AAA AAA SEES SERS S 


3; Tes! 6 

TST6: MOV #6,TSTNO 
MOV #TST7,NEXT 
MEMCLR 
MOV #RXBUF F ,RO 
CLR R1 

5$: CLR (RO) + 
INCB R1 
BPL 5$ 


CLEAR ALL THE DQ11 

[LOAD THE BUFFER POINTER 
SET UP TO CLEAR THE BUFFER 
CLEAR IT 


> DONE ? 
BRANCH IF NO 


SEQ 0029 


CZDQH 
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005300 
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104400 
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08:27 
000911 


001510 
001246 
012370 
001247 


000013 
173752 


173650 
173636 
000001 


012376 
013256 
000044 


001246 
001246 
001246 
012370 


174070 


001246 


001247 


012372 
012374 
173776 


173764 


173744 
173736 


173724 
173712 
173700 
173666 


10$: 


1$: 


2$: 


3$: 


4$: 


—E 5 


#11, aDQREG 

SYNC, TEMP2 

#177740 ,MASK 
MASK, TEMP2 

DOSTAT 

10$ 


TEMP2 

MASK, TEMP2+1 
TEMP2+1 
TEMP2,SYNC1 
TEMP2 ,SYNC2 
TEMP2 ,aDQSEC 
@DOQREG 
#B1T3,aDQSEC 
#13,RO0 

RO 

RO, a@DQSEC 
#B1T1,aDQSEC 
#BIT1,aDQSEC 
@DQREG 
#RXBUF F ,ADASEC 
@DQREG 

care eee 
aDQR 

#SYNCE, ,@DQSEC 
coon os 
@DQRC 

OTe SR 

R5 

@DQRCSR 

2$ 

#1,R5 

5 

#TXBUFF ,RO 
#RXBUFF ,R1 
#36. »R2 

(RO) +,R5 


TEMP2 
(R1)+,TEMP2 
R4 


TEST OF TRANSMITTER AN 


THIS TEST WILL XMIT 


D RE 
AND RE 


;SELECT THE SYNC REG 


;LOAD SYNCS 
[LOAD THE MASK 


>SET UP A MASK TO GET THE 
[SINGLE SYNC CHARACTER? 


71F YES,BR. 

CORRECT SYNC CHARACTER 
7FOR THIS CHARACTER LENGTH 
MANIPULATE yy TO 


COME UP WITH 


THE 
[PROPER SYNC CHARACTER 
:LOAD THE CHARACTER 


:DI 

;LOAD THE SYNC REGISTER 
SEL THE MISC REGISTER 
;SET TEST LOOP 


‘FLIP THE BYTES 
“SET CHARACTER LENGTH 
“TURN CLOCK OFF... 


AND ON 
SEL RX PRIMARY ADRESS 


SET ADRESS 


7SEL RX PRIMARY CHAR COUNT 


SET CHAR COUNT 


7SEL TX PRIMARY ADDRESS 
[LOAD THE SYNC CHAR 

7SEL TX PRI CHAR COUNT 
SET CHAR COUNT 


ft: GO 
START TIMING 


31S DONE UP? 
BRANCH IF YES 


Al 
[BR IF MORE TO GO 
Z;ERROR--NO RX DONE 
= LOAD BUFFER POINTER 
;LOAD RX BUFFER POINTER 
7SET UP TO COUNT CHARACTERS 


:GET A CHARACTER TO COPMARE 
*GET REC CHARACTER 
TO R4 


;MOVE 


MASK OUT UNWANTED BITS 
‘BR IF THE CHARACTERS MATCH? 


IF OK 
ae" oe DOESN'T MATCH 
:NO--GO BACK FOR MORE 


;SCOPE THIS TEST 


V CHARACTERS 


Ab een CHARATER LENGHTHS 


aaer 


SEQ 0030 


MACY11 30A(1052) 
03=DEC-80 


' CZDQH 
CZDQHE .P11 


012737 


Dialametaatatanee 
BURURENASVS 


Te at at at te we 


ete et ee hk ke ek a a nk ak ed dd nd ed I wd = 
Val val eal ab al 
OH BR Or ON Or AAA DAA SUIT > % 
AERWR $0 OWMNAUEWWN—ODONAUEWN-OO 
MAMA Ww 
NNN NNN oO 
o SAWS > 


DPV PV SV VSI SV SEV SV STS SV SV SV ST STS SIS 


3 
oS 
Ww 
Nm 
N 
N 
N 


012702 


112005 
005¢ 37 


08:2 


000007 
006154 


013256 


000011 


001246 
012370 


001247 


000012 
173404 


173302 
173270 
000001 
012376 


013256 
000044 


001246 


— 08: 


173522 
001246 
012370 
001246 


001247 


012372 
012374 
173430 


173416 


173376 
173370 


173356 
173344 
173332 
173320 
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3 VEST 


zAT 6 BITS/PER/CHAR 
DATA CHECKING WILL 


7? 


F 


3 


“BE PERFORMED! 


REE REE ER ERE REE EERE EERE TEER EERE RAR EE REE EERE 


TST?: 


5$: 


10$: 


2$: 


3$: 


MOV 


#7,TSTNO 
ATST10O,NEXT 


ARXBUF F ,RO 
R1 

(RO) + 

R1 

5$ 

#11, aDQREG 
SYNC, TEMP2 
#177700,MASK 
MASK, TEMP2 
DQSTAT 

10$ 

TEMP2 

MASK, TEMP2+1 


TEMP2+1 
TEMP2,SYNC1 


° 


R 

RO, a@DQSEC 
#B1T1,a@DQSEC 
#B1T1,aDQSEC 
@DQREG 
#RXBUFF ,@DQSEC 
@DQREG 

#-36. ,aDQSEC 
@DQREG 
#SYNC2,aDQSEC 
@DQREG 


7 
#TXBUFF ,RO 
#RXBUFF RI 
#36. ,R2 


(RO) +,R5 
TEMP2 


CLEAR ALL_THE DQ11 
;LOAD THE BUFFER POINTFR 
SET UP TO CLEAR THE BUFFER 


CLEAR IT 
; DONE ? 
BRANCH IF NO 


“SELECT THE SYNC REG 


;LOAD SYNCS 
;LOAD THE MASK 


7SET UP A MASK TO GET THE 


SINGLE SYNC CHARACTER? 324d 
31F YES,AR. ii+4D 
;CORRECT SYNC CHARACTER 

FOR THIS CHARACTER LENGTH 

;MANIPULATE DATA TO ri+eD 


COME UP WITH THE 


PROPER SYNC CHARACTER 
or ee CHARACTER 


:D1 
;LOAD THE SYNC REGISTER 
SEL THE MISC REGISTER 


sSET TEST LOOP 
‘FLIP THE BYTES 


SET CHARACTER LENGTH 
; TURN CLOCK OFF... 


AND ON 
7SEL RX PRIMARY ADRESS 


;SET ADRESS 


SEL RX PRIMARY CHAR COUNT 


3SET CHAR COUNT 


7SEL TX PRIMARY ADDRESS 
;LOAD THE SYNC CHAR 
SEL TX PRI CHAR COUNT 


7SET CHAR COUNT 


;SET Rx GO 
:SET TX GO 
START TIMING 
31S DONE UP? 
BRANCH IF YES 


WAIT 
;BR_IF MORE TO GO 
;ERROR--NO RX DON 


E 


;LOAD BUFFER POINTER 
;LOAD RX BUFFER POINTER 
SET UP TO COUNT CHARACTERS 


;GET A CHARACTER TO COPMARE 


SEQ 0031 


C7DQH MACY11 30A(1052) 
CZDOQHE .P11 03-DEC-80 


1584 006124 112137 


| 1592 006152 104400 


1602 006154 012737 


O3=DEC-80 08:29 PAGE 


08:27 


001246 
601246 
012370 


000010 
006522 


013256 


000011 
001510 


001246 
012370 


000010 
000011 


001226 
001216 


hg akg 


012370 
001246 


173030 
173022 


173010 
172776 
172764 
172752 


G 3 
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4$: 


TST10: 


5$: 


10$: 


BNE 
SCOPE 


eA tag 


GET REC CHARACTER 
:MOVE TO _R4 

MASK OUT UNWANTED BITS 
3DO0 THE CHARACTERS MATCH? 


BR IF OK 

;ERROR=-DATA DOESN'T MATCH 
ALL DONE? 

;NO=-GO BACK FOR MORE 
;SCOPE THIS TEST 


TEST OF TRANSMITTER AND RECEIVER CHARATER LENGHTHS 
THIS TEST WILL ~* AND RECV CHARACTERS 

TAT 7 BITS/PER/CHAR 
ZDATA CHECKING WILL "BE PERFORMED! 


TEST 10 


RRR EERE ERE EERE RRR RR EEE E ERE EERE RERERER HERES 


MOV 


#10, TSTNO 
ATST11,NEXT 


#RXBUFF ,RO 
R1 

(RO) + 

R1 


5$ 
#11,QDQREG 
SYNC, TEMP2 
#177600 ,MASK 
MASK , TEMP2 
DQSTAT 

10$ 


TEMP2 
MASK, TEMP2+1 


TEMP2+1 
TEMP2,SYNC1 
TEMP2,SYNC2 
TEMP2 , @DQSEC 


@DQREG 
#B1T3,a@DQSEC 
#11,R0 


RO 

RO, a@DQSEC 
#31T1,aDQSEC 
#B1T1,@DQSEC 
@DQREG 

#RXBUFF ,@DOSEC 


@DQREG 
#-36. ,aDQSEC 
DOREG 


a 
ASYNC2 ,@DQSEC 
@DOREG 


aD 
#-38. -aDQseC 
@DQRCSR 


;CLEAR ALL THE DQ11 

S LOAD THE BUFFER POINTER 
;SET UP TO CLEAR THE BUFFER 
S CLEAR IT 

; DONE ? 

;BRANCH IF NO 

:SELECT THE SYNC REG 

;LOAD SYNCS 

;LOAD THE MASK 

;SET UP A MASK TO GET THE 

: SINGLE SYNC CHARACTER? sited 


YES,BR. iiteD 
CORRECT SYNC CHARACTER 
[FOR THIS CHARACTER LENGTH 
:MANIPULATE + TO ri+4D 
COME UP WITH THE 
“ PROPER SYNC CHARACTER 
a. Oe THE CHARACTER 


DITTO 

LOAD THE SYNC REGISTER 
SEL THE MISC REGISTER 
[SET TEST LOOP 


“FLIP THE BYTES 
TSET CHARACTER | LENGTH 
;TURN CLOCK OFF 


AND ON 
SEL RX PRIMARY ADRESS 
TSET ADRESS 
;SEL RX PRIMARY CHAR COUNT 
[SET CHAR COUNT 
SEL TX PRIMARY ADDRESS 
SLOAD THE SYNC CHAR 
SEL TX PRI CHAR COUNT 
SET CHAR COUNT 
7SET RX GO 


SEO 0C32 


H 3 
C7DQH MACY11 30A(1052) O3=DEC=80 08:29 PAGE 


CIJDQME.P11 03=DEC=80 08:27 PROGRAM INITIALIZATION AND START UP. SEQ 0033 
1640 006424 005277 172734 INC aDaTCSR :SET TX GO 
1641 006430 005005 CLR RS ‘START TIMING 
1642 006432 105777. 172722 1$: TSTB = @DORCSR *1S DONE UP? 
1643 006436 100404 BM! 2$ ‘BRANCH IF YES 
1644 006440 062705 000001 ADD #1,R5 “WAIT 
1645 006444 001372 BNE 1$ ‘BR IF MORE TO GO 
1646 006446 104001 HLT 1 sERROR=-NO RX DONE 
1647 006450 012700 012376 2$: MOV #TXBUF F RO ‘LOAD BUFFER POINTER 
1648 006454 012701 013256 MOV #RXBUFF RI ;LOAD RX BUFFER POINTER 
1649 006460 012702 000044 MOV #35. ,R2 'SET UP TO COUNT CHARACTERS 
1650 006464 3$: 
1651 006464 112005 MOVB —- (RO) +, RS ;GET A CHARACTER TO COPMARE 
1652 006466 005037 001246 CLR TEMP2 
1653 006472 112137 001246 MOVB —s«(R1) +, TEMP2 “GET REC CHARACTER 
1654 006476 0137046 001246 MOV TEMP2.RG “MOVE TO R4& 
1655 006502 043705 012370 BIC MASK ,R5 “MASK OUT UNWANTED BITS 
1656 006506 020504 CMP R5,R4 :DO THE CHARACTERS MATCH? 
1657 006510 001401 BEQ 4$ “BR IF OK 
1658 006512 104002 HLT 2 TERROR=-DATA DOESN'T MATCH 
1659 006514 005302 4$: DEC R2 “ALL DONE? 
1660 006516 001362 BNE 3$ ‘NO--GO BACK FOR MORE 
1661 006520 104400 SCOPE “SCOPE THIS TEST 
1663 
1 :TEST OF TRANSMITTER AND RECEIVER ge gy LENGHTHS 
1665 “THIS TEST WILL XMIT AND RECV CHARACTERS 
1666 ‘AT 8 BITS/PER/CHAR. 
1667 “DATA CHECKING WILL BE PERFORMED! 
1669 : TEST 11 
1670 FRRAACRAARAERARAAAAATAET HEAR ee Kee eeeKKKAKAaeeeeKeKeKeeeeeeseeee 
1671 006522 012737 000011 001226 TST11: MOV #11,TSTNO 
1672 006530 012737 007070 001216 MOV #TST12,NEXT 
1673 006536 104413 MEMCLR :CLEAR ALL THE DQ11 
1674 006540 012700 013256 MOV #RXBUF F RO “LOAD THE BUFFER POINTER 
1675 006544 005001 CLR R1 ‘SET UP TO CLEAR THE BUFFER 
1676 006546 005020 5$: CLR (RO) + =CLEAR IT 
1677 006550 105201 INCB RT : DONE ? 
1678 006552 100375 BPL 5$ “BRANCH IF NO 
1679 006554 112777 000011 172606 MOVB #11, aDQREG “SELECT THE SYNC REG 
1680 006562 013737 013052 001246 MOV SYNC, TEMP2 ‘LOAD SYNCS 
1681 006570 012737 177400 012370 MOV #177400,MASK LOAD THE MASK 
1682 006576 143737 012370 001246 BICB MASK, TEMP2 ‘SET UP A MASK TO GET THE 
1683 006004 005737 001510 TST DQSTAT :SINGLE SYNC CHARACTER? z2¢¢D 
1684 006610 100003 BPL 10$ IF YES.BR. ised 
1685 006612 000241 CLC ‘CORRECT SYNC CHARACTER 
1686 006614 106037 001246 RORB —«sTEMP2 “FOR THIS CHARACTER LENGTH 
1687 006620 143737 012370 001247 10$:  ®BICB  MASK,TEMP2+1 = :MANIPULATE DATA TO rie 
1688 006626 000241 CLC ‘COME UP WITH THE 
1689 006630 106037 001247 RORB —«sTEMP2+1 ‘PROPER SYNC CHARACTER 
1690 006634 013737 001246 012372 MOV TEMP2, SYNC1 ‘LOAD THE CHARACTER 
1691 006642 013737 001246 012374 MOV TEMP2. SYNC2 “DITTO 
1692 006650 013777 001246 172514 MOV TEMP? aDQSEC = OAD THE SYNC REGISTER 
1693 006656 105277 172506 INCB @DOREG "SEL THE MISC REGISTER 
1694 006662 012777 000010 172502 MOV #BIT3,aDQSEC SET TEST LOOP 
1695 006670 012700 000010 MGV #10,R0 : 


CZ7DQH 


MACY11 aes 


| CZDQHE P11 


§ 


> > eh > Be 


as) 
OONAUSWN =O 


BSS SVEN 


> PPA AA AA AAA mm em he D VNNN 
WR) 


a ce ed ed cd eh wd ae ed ae ct a a ed el ed ca cl lh 2-8 cel ce et 
Ww 
Ww 


” 





03-DEC=80 


104400 


012737 
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172366 
172354 
000001 
012376 


013256 
000044 


001246 
001246 
001246 
012370 


000012 
007420 


013256 


000011 
013052 
177000 
012370 


172462 
172454 


172442 
172430 
172416 
172404 


001226 
001216 


172240 
001246 
012370 
001246 


1$: TSTB 
BM 


2$: MOV 


3$: 


4$: DEC 
BN 


RO 
RO, @DQSEC 


#B1T1,a@DQSEC 
#B1T1 ,aDQsec 
@DQREG 


oe -@DQSEC 
oo TE aaa 
#SYNCS, aDQsec 
@DQREG 

#-38. ,aDQSEC 


@DQRCSR 
aDQTCSR 
R5 


@DQRCSR 
2$ 
#1,R5 
1$ 


: 
#TXBUFF ,RO 


ARXBUFF ,R1 
#36. ,R2 


(RO) +,R5 


TEMP 
(R1)+, —* 


I 


3 


sFLIP THE BYTES 
SET CHARACTER LENGTH 
TURN CLOCK OFF... 


AND ON 

;SEL RX PRIMARY ADRESS 
ZSET ADRESS 
7 SEL oo By ge CHAR COUNT 
SET CHAR COUNT 
7 SEL T PRIMARY ADDRESS 
LOAD THE SYNC CHAR 

T OUNT 


“SET TX GO 


:BR_IF MORE TO GO 
sERROR=-NO RX DONE 

:LOAD BUFFER POINTER 

:LOAD RX BUFFER POINTER 
SET UP TO COUNT CHARACTERS 


:GET A CHARACTER TO COPMARE 


GET a *3 CHARACTER 
MOVE R4 

:MASK out UNWANTED BITS 
[DO THE CHARACTERS MATCH? 


:BR IF OK 
"ALL DONE? DOESN'T MATCH 


sALL D 
:NO--GO BACK FOR MORE 


+ SCOPE THIS. TEST 


TEST OF TRANSMITTER AND RECEIVER CHARATER LENGHTHS 
THIS TEST. WILL XMIT AND RECV CHARACTERS 

sAT_9 BITS/PER/CHAR. 
DATA CHECKING WILL BE PERFORMED! 


TEST 12 


RARER EERE EEAREKCAEARERERERAEEERAEKEEEHEEREEEKEE EEE RES 


TST12: MOV 
MO 


5$: CLR 


#12,TSTNO 


#TST13,NEXT 
#RXBUF F ,RO 
R1 


(RO) + 
R1 


$ 
#11, @DQREG 
SYNC, TEMP2 


#177000 ,MASK 


MASK , TEMP2 


:CLEAR ALL THE DQ11 

;LOAD THE BUFFER POINTER 
SET UP TO CLEAR THE BUFFER 
CLEAR IT 

; DONE ? 

BRANCH IF NO 

sSELECT TRE SYNC REG 

LOAD SYNCS 

;LOAD THE MASK 

:SET UP THE MASK FOR THE 


ee 


SEQ 0034 


CZDQH 


NANNY 
SOGRALAL 


ee a a os a a a ss 


3333 
SSsssz3z 


eee eee ee 


CZ2DQHE .P11 


MACY11 30A(1052) 
03-DEC-80 


007420 
007426 


000241 
006037 
005737 
100404 


012737 
012737 
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08:27 

001246 
001510 
177777 
001246 


000007 
172126 


172024 
172012 
000001 
012376 


013256 
000044 


012370 


000013 
007750 


012372 
012372 
012374 
172152 


172140 


172120 
172112 


172100 
172066 
172054 
172042 


001226 
001216 


10$: 
20$: 


3$: 


4$: 


BN 
SCOPE 


43 


; CORRECT SYNC CHARACTER 
;SHIFT IT 


TEMP2 7 SHI I 

DQSTAT sSINGLE SYNC CHARACTER? Fie 
10$ 7 1F NO,BR. ico? 
#-1,SYNC1 iiF YES, MARK. 22¢*D 
208 > CONTI NUE. sited 
TEMP2,SYNC1 LOAD THE CHARACTER i2+¢4D 
TEMP2,SYNC2 [DITTO 32*4D 
TEMP2 ,@DQSEC ;LOAD THE SYNC REGISTER 


SEL THE MISC REGISTER 


@DQREG 
#B1T3,aDQSEC SET TEST LOOP 
#7 ,RO ; 


R zFLIP THE BYTES 

RO, @DQSEC SET CHARACTER a 
#B1T1,a@DQSEC TURN CLOCK OFF... 
#B1T1,@DQSEC AND ON 

@DQREG 3SEL RX PRIMARY ADRESS 
MRXBUFF ,ADQSEC ;SET ADRESS 

@DQREG = SEL RX PRIMARY CHAR COUNT 
#-36. ,aDQSEC ;SET CHAR COUNT 

@DQREG [SEL TX PRIMARY ADDRESS 
#SYNC1,@DQSEC  :LOAD THE SYNC CHAR 
@DQREG 7SEL TX PRI CHAR COUNT 
#-38. ,ADQSEC 7SET CHAR COUNT 

@DOQRCSR :SET RX GO 

aDQTCSR :SET TX GO 

R5 START TIMING 

@DQRCSR :1S DONE UP? 

2$ BRANCH IF YES 

#1,R5 WAIT 

1$ [BR IF MORE TO GO 

1 ;ERROR--NO RX DONE 
ATXBUFF ,RO [LOAD BUFFER POINTER 
A#RXBUF FRI ;LOAD RX BUFFER POINTER 
#36. ,R2 :SET UP TO COUNT CHARACTERS 
(RO) +,R5 ;GET ANOTHER CHAR 
(R1)+,R4 ;GET A REC CHAR 

MASK ,R MASK OUT UNWANTED BITS 
R5,R4 7DO THE CHARACTERS MATCH? 
4$ ;BR IF OK 

2 2g ee DOESN'T MATCH 
R2 L DONE? 

3$ :NO==GO FOR MORE 


BACK 
:SCOPE THIS TEST 


TEST OF TRANSMITTER AND RECEIVER CHARATER LENGHTHS 
STHIS TEST WILL eh AND RECV CHARACTERS 

TAT 10 BITS/PER/CHAR 

[DATA CHECKING WILL BE PERFORMED! 


TEST 13 


RRA EAE AERA OTE EEA ERER EAA KERA EERE ERR Ree ee 


TS113: 


MOV 
MOV 


#13,TSTNO 
MTST14,NEXT 


SEQ 0035 


| CZDQHE.P11 03-DEC-80 08:27 


| 

| CZDQH MACY11 30A(1052) 
| 

i 1808 Sorte 


013256 


AUSsWN—O”O 
88888888 
N“N 
S 
vi 
Oo 
S 


012370 


000241 
006037 001246 
001510 


177777 
001246 


ee ee ee ee 
Be SS SSeS 
ek ced ad cad cad ad ad ce exe ed ©) 
OOoOon 
“N 
Ww 
oO 
is) 


1821 


171474 
171462 
000001 
012376 
015256 
000044 


012370 


171710 


001246 


012372 
012372 
012374 
171622 


171610 


171570 
171562 


171550 
171536 
171524 
171512 
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5$: 


10$: 
208: 


1$: 


23: 


3$: 


4$: 


MEMCLR 
MOV 


#RXBUF F RO 
R1 

(RO) + 

R1 

5$ 

#11, aDOQREG 
SYNC, TEMP2 
#176000, MASK 
MASK, TEMP2 
TEMP2 
DOSTAT 

10$ 
#-1,SYNC1 
20$ 
TEMP2,SYNC1 


a@DQR 
#B1T3,aDQSEC 
#6,RO 


RO, @DQSEC 
#BIT1,aDQSEC 
#B1T1,aDQSEC 


@DQREG 
a 


@DQRE 
#-36. ,aDQSEC 


@DQREG 
#SYNC1 ,@DQSEC 
@DQREG 


#38, , ADOSEC 
@DQRCSR 
aDQTCSR 

R5 

@DQRCSR 

2$ 

#1,R5 

1$ 


1 

#TXBUFF ,RO 
#RXBUFF RI 
#36. -R2 


(RO) +,R5 
(R1)+,R4 


CLEAR ALL THE DQ11 
[LOAD THE BUFFER POINTER 
fe Py CLEAR THE BUFFER 


“BRAN CH IF NO 

SELECT THE SYNC REG 
SLOAD SYNCS 

[LOAD THE MASK 

3SET UP THE MASK FOR THE 
: CORRECT SYNC CHARACTER 


SH HIFT IT 

SINGLE SYNC CHARACTER? sittD 

; NO,BR. riteD 

sIF YES, MARK. 2907) 

TOAD THE’ sit++D 
LOAD THE CHARACTER 72+4D 
ITT ++D 


0 
SLOAD THE SYNC REGISTER 
SEL THE MISC REGISTER 
#SET TEST LOOP 


SFLIP THE BYTES 
SET CHARACTER mang: 
Moy CLOCK OFF. 


D ON 
SEL RX PRIMARY ADRESS 
SET ADRESS 
TSEL RX PRIMARY CHAR COUNT 
SET CHAR COUNT 
7SEL_ TX PRIMARY ADDRESS 
[LOAD THE SYNC CHAR 
SEL TX PRI CHAR COUNT 
7S COUNT 


:START TIMING 
31S DONE. UP? 
BRANCH IF YES 


WAIT 

;BR IF MORE TO GO 
Z;ERROR--NO RX DONE 

[LOAD BUFFER POINTER 

;LOAD RX BUFFER POINTER 
[SET UP TO COUNT CHARACTERS 


:GET ANOTHER CHAR 
:GET A REC CHAR 

MASK OUT UNWANTED BITS 
“D0 THE CHARACTERS MATCH? 


[BR IF OK 
a pe DOESN'T MATCH 
L DONE? 


NO=~GO BACK FOR MORE 
SCOPE THIS TEST 





SEQ 0036 


[on a 


CZDQH MACY11 30A(1052) 


CZDQHE .P11 


1907 


38 


| 

| 

| 

| 

| 
1878 
1879 
1880 
1881 
1882 


errr, rr y, TT tT 
wOOODOOOO0O0D 
a Pin Snr Por Pe ir Por Pow Po Po} 
WDONOAUESWN—O 


010254 


012737 


012702 
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000014 
010300 


013256 


000011 


012370 


001246 
001510 


177777 
001246 
001246 
001246 
171264 
000010 
000005 
171246 


171144 
171132 
000001 
012376 


013256 
000044 


001226 
001216 


171360 


001246 


012372 
012372 
012374 
171272 


171260 


171240 
171232 


171220 
171206 
171174 
171162 


TST14: 


10$: 
208: 


‘2 


TEST OF TRANSMITTER AND RECEIVER CHARATER LENGHTHS 
STHIS TEST WILL ad AND RECV CHARACTERS 

TAT 11 BITS/PER/CHA 

SDATA CHECKING WILL "ae PERFORMED! 


TEST 14 


FERRARA AAAAARAAAAAAAREARAAAARAERAAAARAAAAAAAAAAARA AERA EAHA HERRERA EES 


MOV 


#14,TSTNO 
#75115, NEXT 
sCLEAR ALL THE DQ11 
#RXBUFF ,RO ; LOAD THE BUFFER POINTER 
R1 SET UP TO CLEAR THE BUFFER 
(RO) + “CLEAR IT 
R1 ; DONE? 
5$ ;BRANCH IF NO 
#11,aDQREG sSELECT THE SYNC REG 
SYNC, TEMP2 sLOAD SYNCS 
#774000 ,MASK ;LOAD THE MASK 
MASK . TEMP2 :SET UP THE MASK FOR THE 
: CORRECT SYNC CHARACTER 
TEMP2 SHIFT IT 
DQSTAT :SINGLE SYNC CHARACTER? ss ee) 
10$ sIF NO,BR. ;3++D 
#-1,SYNC1 a YES, MARK. 3++D 
20$ = CONT INUE . zi+4D 
TEMP2,SYNC1 * LOAD THE CHARACTER 3504) 
TEMP2, SYNC2 sDITTO ri+t+D 
TEMP2 ,aDQSEC :LOAD THE SYNC REGISTER 
ADQGREG :SEL THE MISC REGISTER 
#B1T3,aDQSEC :SET TEST LOOP 
#5,RO ; 
RO ‘FLIP THE BYTES 
RO, aDQSEC sSET CHARACTER estan 
#B1T1,aDQSEC : TURN CLOCK OFF... 
#BIT1,aDQSEC ‘AND ON 
aDQREG :SEL RX PRIMARY ADRESS 
#RXBUFF ,ADQSEC ;SET ADRESS 
@DQREG SEL RX PRIMARY CHAR COUNT 
#-36. ,aDQSEC :SET CHAR COUNT 


[SEL TX PRIMARY ADDRESS 
TLOAD THE SYNC CHAR 
SEL TX PRI CHAR COUNT 
SET CHAR COUNT 


@DQREG 
#SYNC1,@DQSEC 
@DQRE 


QRC SET RX GO 
aDQTCSR :SET TX GO 
R5 START TIMING 
@DQRCSR [1S DONE UP? 
2$ : BRANCH IF YES 
#1,R5 WAIT 

SBR IF MORE TO GO 

1 ;ERROR--NO RX DONE 
#TXBUF F ,RO = LOAD BUFFER POINTER 
#RXBUFF ,R1 ;LOAD RX BUFFER POINTER 
#36. ,R2 [SET UP TO COUNT CHARACTERS 


SEQ 0037 


| 
| 


= 


. 1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 
1943 


1961 


= 


010254 


010276 


010544 
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012370 


000015 
010630 


013256 


000011 


012370 


001246 
001510 


177777 
001246 


170614 
170614 


001226 
001216 


171030 


001246 


012372 
012372 
012374 
170742 


170730 


170710 
170702 


170670 
170656 
170644 
170632 


MOV (RO) +,R5 
MOV (R1)+,R4 
BIC MASK,R 
BEQ 4$ 
HLT 2 

4$: DEC R2 

E 3$ 

SCOPE 


;GET ANOTHER CHAR 

ZGET A REC CHAR 
[MASK OUT UNWANTED BITS 
7DO THE CHARACTERS MATCH? 


BR IF OK 

;ERROR=-DATA DOESN'T MATCH 
ZALL DONE? 

3NO--GO BACK FOR MORE 
SCOPE THIS TEST 


TEST OF TRANSMITTER AND RECEIVER CHARATER LENGHTHS 
:THIS TEST WILL XMIT AND RECV CHARACTERS 


TAT 12 BITS/PER/CHAR. 


TDATA CHECKING WILL BE PERFORMED! 


RI EERE ERE EKER REECE ERE EERE EK EH 


TEST 15 

TST15: MOV #15,TSTNO 
MOV #TST16,NEXT 
MEMCLR 
MOV #RXBUF F ,RO 
CLR R1 

5$: CLR (RO) + 
INCB R1 
BPL 5$ 
MOVB #11, Q@DQREG 
MOV SYNC, TEMP2 
MOV #170000 ,MASK 
BIC MASK, TEMP2 
CLC 
ROR TEMP2 
TST DQSTAT 
BMI 10$ 
MOV #-1,SYNC1 
BR 20$ 

10$: MOV TEMP2,SYNC1 

20$: MOV TEMP2 ,SYNC2 
MOV TEMP2 ,@DQSEC 
INCB @DQREG 
MOV #B1T3,aDQSEC 
MOV #4 RO 
SWAB RO 
BIS RO, @DQSEC 
BIS #B1T1,a@DQSEC 
BIC #81T1 ,aDQSEC 
CLRB @DQREG 
MOV A#RXBUF F ,@DQSEC 
INCB QREG 


aDQRE 

MOV #-36. ,@DQSEC 
@DQREG 

MOV #SYNC1 ,@DQSEC 
@DQREG 

4-38. ,aDQSEC 


INC a@DQRCSR 
aDQTCSR 


CLEAR ALL THE DQ11 

4 THE BUFFER POINTER 
ti A CLEAR THE BUFFER 
DONE? 

BRANCH IF 

SELECT THE NSYNC REG 

[LOAD SYNCS 

;LOAD THE MASK 

;SET UP THE MASK FOR THE 
sop ae SYNC CHARACTER 


sSHIFT IT 

:SINGLE SYNC CHARACTER? z2++D 

7 1F NO,BR. 33° 

2 If YES, MARK. z2+4D 

; CONT INU NUE . 32+4+D 

sLOAD THE CHARACTER Sze 
TO 32+*D 


:DIT 

;LOAD THE SYNC REGISTER 
SEL THE Bape REGISTER 
2SET TEST LOOP 


SFLIP THE BYTES 
SET CHARACTER LENGTH 
TURN CLOCK OFF... 


AND ON 

:SEL RX PRIMARY ADRESS 
:SET ADRESS 

SEL RX PRIMARY CHAR COUNT 
:SET CHAR COUNT 

:SEL TX PRIMARY ADDRESS 
;LOAD THE SYNC CHAR 
7SEL TX PRI CHAR COUNT 
:SET CHAR COUNT 

:SET RX GO 

:SET TX GO 


SEQ 0038 


N 3 
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| C2DQHE.P11 §—-03=DEC=80 08:27 PROGRAM INITIALIZATION AND START UP. SEQ 0039 
010550 005 CLR RS START TIMING 
010552 105777 170602 1$: TSTB — ADORCSR [1S DONE UP? 
010556 1004 BM! 2$ BRANCH IF YES 
010560 062705 000001 ADD #1.R5 WAIT 
010564 001372 BNE 1$ “BR IF MORE TO GO 
010566 104001 HLT 1 TERROR==NO RX DONE 
010570 012700 012376 2$: MOV #TXBUFF ,RO *LOAD BUFFER POINTER 
010574 012701 013256 MOV #RXBUFF,R1 ;LOAD RX BUFFER POINTER 
Binene 012702 000044 33 MOV #36.,R2 3SET UP TO COUNT CHARACTERS 
010604 012005 MOV (RO)+,R5 :GET ANOTHER CHAR 
010606 012104 MOV (R1)+-RG “GET A REC CHAR 
010610 043705 012370 BIC MASK,R5 MASK OUT UNWANTED BITS 
010614 020504 CMP R5,R4 :DO THE CHARACTERS MATCH? 
010616 001401 BEQ 4$ “BR IF OK 
010620 04002 HLT 2 + go DOESN'T MATCH 
010622 005302 4$: DEC R2 L DONE? 
010624 001367 BNE ep BACK FOR MORE 
010626 104400 SCOPE SCOPE THIS TEST 
sTEST OF TRANSMITTER AND RECEIVER CHARATER LENGHTHS 
THIS TEST WILL XMIT AND RECV CHARACTERS 
zAT 13 BITS/PER/CHAR. 
[DATA CHECKING WILL BE PERFORMED! 
> Yes! % 
FERRARA REE REE EEE EEE REE ERE EEE EEE KEE REE ERE EERE EE eee 
010630 012737 000016 001226 TST16: MOV #16, TSTNO 
010636 012737 011160 001216 Vv #TST17,NEXT 
010644 104413 MEMCLR sCLEAR ALL THE DQ11 
010646 012700 013256 MOV #RXBUF F ,RO LOAD THE BUFFER POINTER 
010652 005001 CLR R1 [SET UP TO CLEAR THE BUFFER 
010654 005020 5$: CLR (RO) + “CLEAR IT 
010656 105201 INCB RT “DONE? 
01 100375 BPL 5$ BRANCH IF 
010662 112777 000011 170500 MOVB #11, @DOREG SELECT THE NSYNC. REG 
010670 013737 013052 001246 MOV SYNC, TEMP2 [LOAD SYNCS 
010676 012737 160000 012370 MOV #160000,MASK § :LOAD THE MASK 
010704 043737 012370 001246 BIC MASK, TEMP2 SET UP THE MASK FOR THE 
010712 000241 CLC [CORRECT SYNC CHARACTER 
010714 006037 001246 ROR TEMP2 SSHIFT IT 
010720 005737 001510 TST DQSTAT ZsSINGLE SYNC CHARACTER? 
010724 100404 | BMI 10$ IF NO.BR. 44D 
010726 012737 177777 -.42372 MOV #-1,SYNC1 “IF YES, MARK. ++D 
010734 03 BR 20$ = CONTINUE. +4D 
10736 013737 001246 012372 10%: MoV TEMP2, SYNC1 [LOAD THE CHARACTER ++D 
010744 013737 001246 012374 20$: MOV TEMP2. SYNC2 DITTO ++D 
10752 013777 001246 170412 MOV TEMP2.aDQSEC  :LOAD THE SYNC REGISTER 
010760 105277 170404 INCB = @DOREG [SEL THE MISC REGISTER 
10764 012777 000010 170400 MOV #BIT3,aD0seC SET TEST LOOP 
010772 012700 000003 MOV #3,R0 
010776 300 SWAB RO “FLIP THE BYTES 
1000 050077 170366 BIS RC, aDQSEC ;SET CHARACTER LENGTH 
011004 052777 000002 170360 BIS #BIT1,aDQSEC TURN CLOCK OFF 
011012 042777 000002 170352 BIC #BIT1.aDOSEC AND ON 


-—-—— 
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| C2DOHE.P11 
2032 011020 
| 5033 011094 
5034 011032 
S08S 011036 
5036 011044 
$037 011050 
$038 011056 
| $039 011062 
$040 011070 
$041 011074 
5042 011100 
5023 011102 
S04 011106 
5048 011110 
5046 011114 
504? 011116 
$028 011120 
2049 011124 
5080 011130 
5081 611134 
5082 011134 
5083 011136 
508% 011140 
2055 011144 
508 011146 
5087 011150 
5088 011152 
2059 011154 
5060 011156 
5061 
5062 
5068 
5066 
5065 
5066 
5067 
5068 
5069 
5070 011160 
5071 011166 
5072 011174 
5073 011176 
507% 011202 
5078 011204 
507% 011906 
5077 011210 
5078 011212 
5079 011220 
5080 011226 
011934 
011342 
011944 
011350 
011354 
011956 
011264 


105077 


012701 
012702 


012005 


104400 


012737 


100404 
012737 
000403 
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170344 


170264 
170252 
000001 
012376 


013256 
000044 


012370 


000017 
011510 


013256 


000011 
013052 
140000 
012370 


001246 
001510 


177777 


170340 
170326 
170314 
170302 


001246 


012372 


CLRB @DQREG ;SEL RX PRIMARY ADRESS 

V ARXBUFF ,ADQSEC ;SET ADRESS 
INCB aDQR SEL RX PRIMARY CHAR COUNT 
MOV #-36. ,@DQSEC ;SET CHAR COUNT 


@DQREG 
MOV ASYNC1 ,@DQSEC 
@DQREG 


;SEL_TX PRIMARY ADDRESS 
;LOAD_ THE SYNC CHAR 


INCB 3SEL TX PRI CHAR COUNT 
MOV 4-38. , aDQSEC SET CHAR COUNT 
INC @DQRCSR ;SET RX GO 
INC aDaTCSR ;SET TX GO 
CLR R5 START TIMING 
1$ TSTB @DOQRCSR 31S DONE UP? 
BMI 2$ ;BRANCH IF YES 
ADD #1,R5 WAIT 
BNE 1$ ;BR IF MORE TO GO 
HLT 1 Z;ERROR=-NO RX DONE 
23: MOV #TXBUFF ,RO ;LOAD BUFFER POINTER 
MOV ARXBUFF ,R1 ;LOAD RX BUFFER POINTER 
3s MOV #36. ,R2 SET UP TO COUNT CHARACTERS 
MOV (RO)+,R5 GET ANOTHER CHAR 
MOV (R1)+,R4 ;GET A REC CHAR 
BIC MASK ,R5 MASK OUT UNWANTED BITS 
CMP R5,R4 3DO0 THE CHARACTERS MATCH? 
BEQ $ ;BR IF OK 
HLT 2 ;ERROR--DATA DOESN'T MATCH 
4$: DEC R2 sALL DONE? 
E 3$ zNO--GO BACK FOR MORE 
SCOPE :SCOPE THIS TEST 
TEST OF TRANSMITTER AND RECEIVER CHARATER LENGHTHS 
3THIS TEST WILL XMIT AND RECV CHARACTERS 
zAT 14 BITS/PER/CHAR. 
DATA CHECKING WILL BE PERFORMED: 
TEST 17 
SRI IT TI ITT IIR RRR RRR RE EERE EERE ER ERR ER ERS 
TST17: MOV #17,TSTNO 
MOV #TST20,NEXT 
MEMCLR CLEAR ALL THE DQ11 
MOV #RXBUF F ,RO ;LOAD THE BUFFER POINTER 
CLR R1 SET UP TO CLEAR THE BUFFER 
5$: CLR (RO) + CLEAR IT 
INCB R1 ; DONE ? 
BPL 5$ ;BRANCH IF NO 
MOVB #11, @DQREG :SELECT THE SYNC REG 
MOV SYNC, TEMP2 ;LOAD SYNCS 
MOV #140000 ,MASK ;LOAD THE MASK 
BIC MASK , TEMP2 SET UP THE MASK FOR THE 
CLC CORRECT SYNC CHARACTER 
ROR TEMP2 SHIFT IT 
TST DQSTAT SINGLE SYNC CHARACTER? 33+**D 
BM] 10$ IF NO.BR. 23D 
MOV #-1,SYNC1 IF YES, MARK. 3++*D 
BR 20$ 7 CONTINUE. 3+*D 


SEQ 0040 


| CZDQH MACY11 30A(1052) 
| CZDQHE.P11 03-DEC-80 08:27 
| 
| 2088 011266 013737 001246 
' = 2089. «011274 «013737 001246 
, 2090 011302 013777 001246 
' 2091 011310 105277 170054 
2092 011314 012777 000010 
2093 011322 012700 000002 
2094 011326 300 
2095 011330 050077 170036 
2096 011334 052777 000002 
2097 011342 042777 000002 
2098 011350 105077 170014 
2099 011354 012777 013256 
2100 011362 105277 170002 
2101 011366 012777 177734 
2102 011374 105277 167770 
2103 011400 012777 012372 
2106 011406 105277 167756 
2105 011412 012777 177732 
106 011420 005277 167734 
2107 011424 005277 167734 
2108 011430 005005 
2109 011432 105777 167722 
2110 011436 100404 
2111 011440 062705 000001 
2112 011444 001372 
2113 011446 104001 
2114 011450 012700 012376 
2115 011454 612701 013256 
2116 011460 012702 000044 
2117 011464 
2118 011464 012005 
2119 011466 012104 
2120 011470 043705 012370 
2121 011474 020504 
2122 011476 001401 
2123 011500 104002 
2124 011502 005302 
2125 011504 001367 
2126 011506 104400 
2127 
2128 
2129 
2130 
2131 
2132 
2133 
2134 
2135 
2136 011510 012737 000020 
2137 011516 012737 012040 
2138 011524 104413 
2139 011526 012700 .013256 
2140 011532 005001 
2141 011534 005020 
2142 011536 105201 
2143 011540 100375 


012372 
012374 
170062 


170050 


170030 
170022 


170010 
167776 
167764 
167752 


001226 
001216 


O3=-DEC-80 08:29 PAGE 
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10$: MOV TEMP2,SYNC1 ;LOAD THE CHARACTER Pies 
20$: MOV TEMP2,SYNC2 ‘DITTO 77+4+D 
MOV TEMP2 ,aDQSEC ;LOAD THE SYNC REGISTER 
IN‘B @DQREG “SEL THE MISC REGISTER 
MOV #B1T3,aDQSEC ;SET TEST LOOP 
MOV #2,RO0 
SWAB RO “FLIP THE BYTES 
BIS RO, @DQSEC sSET “nae ise — 
BIS #BIT1,aDQSEC ; TURN CLOCK OFF 
BIC #BiT1,aDQSEC [AND ON 
CLRB @DQREG ;SEL RX PRIMARY ADRESS 
V #RXBUFF,@DQSEC ;SET ADRESS 
INCB @DQREG SEL RX PRIMARY CHAR COUNT 
MOV #-36. ,aDQSEC SET CHAR COUNT 
INCB aDQR SEL TX PRIMARY ADDRESS 
MOV ASYNC1,@DQSEC ;LOAD THE SYNC CHAR 
INCB DQREG SEL TX PRI CHAR COUNT 
MOV SB. ,@DQSEC SET CHAR COUNT 
iNC ada QRCSR ;SET RX GO 
INC @DQTCSR ;SET TX GO 
CLR :START TIMING 
1$: TSTB @DARCSR ;1S DONE UP? 
BMI ‘BRANCH IF YES 
ADD #1,R5 *WAIT 
BNE ‘BR IF MORE TO GO 
HLT 1 ;ERROR=--NO RX DONE 
2$: MOV #TXBUF F ,RO ;LOAD BUFFER POINTER 
MOV ARXBUFF ,R1 LOAD RX BUFFER POINTER 
35 MOV #36. ,R2 :SET UP TO COUNT CHARACTERS 
MOV (RO) +,R5 ;GET ANOTHER CHAR 
MOV (R1)+,R4 GET A REC CHAR 
BIC MASK,R “MASK OUT UNWANTED BITS 
CMP R5,R4 :DO THE CHARACTERS MATCH? 
BEQ 4$ BR IF OK 
HLT 2 sERROR=-DATA DOESN'T MATCH 
4$: DEC R2 ;ALL DONE? 
BNE 3$ *NO--GO BACK FOR MORE 
SCOPE ;SCOPE THIS TEST 
TEST OF TRANSMITTER AND RECEIVER CHARATER LENGHTHS 
:THIS TEST WiLL dl AND RECV CHARACTERS 
SAT 15 BITS/PER/CHA 
=DATA CHECKING WILL “ PERFORMED! 
; TEST 20 
SRARER EERE AREER AEE EAA EERE ER RARER ERATE A AREER AREA EE ER ES 
TST20: MOV #20,TSTNO 
MOV #TST21,NEXT 
MEMCLR sCLEAR ALL THE DQ11 
MOV #RXBUF F ,RO * LOAD THE BUFFER POINTER 
CLR R1 :SET UP TO CLEAR THE BUFFER 
5$: CLR (RO) + sCLEAR IT 
INCB R1 + DONE ? 
BPL 5$ :BRANCH IF NO 


SEQ 0041 
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DQHE.P11 03-DEC=80 08:27 PROGRAM INITIALIZATION AND START UP. SEQ 0042 
2144 011542 112777 000011 167620 MOVB #11, @DQREG :SELECT THE SYNC REG 

2145 011550 013737 013052 001246 MOV SYNC, TEMP2 [LOAD SYNCS 

2146 011556 012737 100000 012370 ~ MOV #100000,MASK § ;LOAD THE MASK 

2147 011564 043737 012370 001246 BIC MASK , TEMP2 [SET UP THE MASK FOR THE 

2148 011572 000241 CLC [CORRECT SYNC CHARACTER 

2149 011574 006037 001246 ROR TEMP2 SHIFT IT 

2150 011600 005737 001510 TST DOSTAT SSINGLE SYNC CHARACTER? pitted 
2151 011604 100404 BMI 10$ IF NO,BR. 33++D 
2152 011606 012737 177777 012372 MOV #-1,SYNC1 TIF YES, MARK. i++ 
2153 011614 000403 BR 208 [CONT INUE . r++ 
2154 011616 013737 001246 012372 10$: MOV TEMP2, SYNC1 “LOAD THE CHARACTER 44D 
2155 011624 013737 001246 012374 208: MOV TEMP? , SYNC2 :DITTO i++ 
2156 011632 013777 001246 167532 MOV TEMP2.a@DQSEC  : LOAD THE SYNC REGISTER 

2157 011640 105277 167524 INCB = aDOREG =SEL THE MISC REGISTER 

2158 011644 012777 000010 167520 MOV #BIT3,aDQSEC SET TEST LOOP 

2159 011652 012700 000001 MOV #1,RO ; 

2160 011656 000300 SWAB RO [FLIP THE BYTES 

2161 011660 050077 167506 BIS RO, @DQSEC [SET CHARACTER LENGTH 

2162 011 052777 000002 167500 BIS #B1T1,aDQSEC  ;TURN CLOCK OFF... 

2163 011672 042777 000002 167472 BIC #81T1,aDQSEC AND ON 

2164 011700 105077 167464 CLRB  @DQREG SSEL RX PRIMARY ADRESS 

2165 011704 012777 013256 167460 MOV #RXBUFF ,@DQSEC ;SET ADRESS 

2166 011712 105277 167452 INCB = @DQREG SSEL RX PRIMARY CHAR COUNT 

2167 011716 012777 177734 167446 MOV #-36.,QDQSEC § ;SET CHAR COUNT 

2168 011724 105277 167440 INCB = @DQREG [SEL TX PRIMARY ADDRESS 

2169 011730 012777 012372 167434 MOV #SYNC1,@DQSEC ;LOAD THE SYNC CHAR 

2170 011736 105277 167426 INCB = @DQREG [SEL TX PRI CHAR COUNT 

2171 011742 012777 177732 167422 MOV #-38.,aDQSEC § ;SET CHAR COUNT 

2172 011750 005277 167404 INC @DQRCSR :SET RX GO 

2173 011754 005277 167404 INC @DOTCSR TSET TX GO 

2174 011760 005005 CLR R5 SSTART TIMING 

2175 011762 105777 167372 1$: TSTB  ADORCSR Z1S DONE UP? 

2176 011766 100404 BMI 2$ BRANCH IF YES 

2177 011770 062705 000001 ADD #1,R5 WAIT 

2178 011774 001372 BNE 1$ BR IF MORE TO GO 

2179 011776 104001 HLT 1 TERROR--NO RX DONE 

2180 012000 012700 012376 2$: MOV #TXBUF F ,RO [LOAD BUFFER POINTER 

2181 012004 012701 013256 MOV #RXBUF F 5R1 [LOAD RX BUFFER POINTER 

2182 012010 012702 000044 MOV #36. ,R2 SSET UP TO COUNT CHARACTERS 

2183 012014 3$: 

2184 012014 012005 MOV (RO) +,R5 ;GET ANOTHER CHAR 

2185 012016 012104 MOV (R1)+,R4 [GET A REC CHAR 

2186 012020 043705 012370 BIC MASK ,R5 “MASK OUT UNWANTED BITS 

2187 012024 020504 CMP R5,RG [DO THE CHARACTERS MATCH? 

2188 012026 001401 BEQ 4$ BR IF OK 

2189 012030 104002 HLT 2 [ERROR--DATA DOESN'T MATCH 

2190 012032 005302 4$: DEC R2 TALL DONE? 

2191 012034 001367 BNE 3$ =NO=-GO BACK FOR MORE 

2192 012036 104400 SCOPE “SCOPE THIS TEST 

2194 

2195 :TEST OF TRANSMITTER AND RECEIVER CHARATER LENGHTHS 

2196 “THIS TEST WILL XMIT AND RECV CHARACTERS 

2197 TAT 16 BITS/PER/CHAR, 

2198 [DATA CHECKING WILL BE PERFORMED! 
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000021 
014306 


013256 


000011 
013052 
000000 
012370 


001246 
001510 


177777 
001246 


000000 
167156 


167054 
167054 


167042 
000001 
012376 


013256 
000044 


012370 


melee 
001216 


167270 


001246 


012372 
012372 
012374 
167202 


167170 


167150 
167142 


167130 
167116 
167104 
167072 
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PROGRAM INITIALIZATION AND START UP. 
: TEST 21 


ERR EER RE RRR REAR REREEERAEEAEEAEHERAEE EERE EERE 


TST21: 


5$: 


10$: 


20$: 


2s: 


3$: 


MOV 


#21,TSTNO 
#.EOP,NEXT 


#RXBUF F ,RO 
R1 

(RO) + 

R1 

5$ 

#11, @DQREG 
SYNC, TEMP2 
#000000 ,MASK 
MASK, TEMP2 


TEMP2 
DQSTAT 


10$ 
#-1,SYNC1 
20$ 
TEMP2,SYNC1 


@DQREG 
#8113, aDQSEC 
#0,RO 


R 

RO, aDQSEC 
#3171 ,aDQSEC 
#B1T1,aDQSEC 


@DQREG 
A#RXBUF F ,ADQSEC 
REG 


aDQ 
#-36. ,@DQSEC 
DOREG 


a 
#SYNC1,@DQSEC 


@DQREG 
#-38. ,aDQSEC 
@DQRCSR 
aDQTCSR 


R5 
@DQRCSR 
2$ 
#1,R5 
1$ 


1 

#TXBUFF ,RO 
#RXBUF F RI 
#36. ,R2 


(RO)+,R5 
(R1)+,R4 
R5,R4 

4$ 

2 


CLEAR ALL THE DQ11 

[LOAD THE BUFFER POINTER 
SET UP TO CLEAR THE BUFFER 
CLEAR IT 

[DONE ? 


;BRANCH IF NO 

;SELECT THE SYNC REG 
;LOAD SYNCS 

;LOAD THE MASK 

SET UP THE MASK FOR THE 
pes Me SYNC CHARACTER 


SHIFT IT 
«SINGLE SYNC CHARACTER? sit++D 
‘IF NO,BR. bs 
sit YES, MARK. riteD 
: CONTINUE. 23000 
:LOAD THE CHARACTER 33°90 
:DIT i2+4D 


TO 
;LOAD THE SYNC REGISTER 
:SEL THE MISC REGISTER 
SET TEST LOOP 


[FLIP THE BYTES 
SET CHARACTER eg: 
a OFF. 


7 AND 

7SEL R¥ PRIMARY ADRESS 
7SET ADRESS 

7SEL RX PRIMARY CHAR COUNT 
7SET CHAR COUNT 

7SEL_ TX PRIMARY ADDRESS 
[LOAD THE SYNC CHAR 

7SEL TX PRI CHAR COUNT 
#SET CHAR COUNT 


s§ T 

ZSTART TIMING 
1S DONE UP? 
;BRANCH IF YES 


WAIT 
BR IF MORE TO GO 
Z;ERROR--NO RX DONE 
;LOAD BUFFER POINTER 
;LOAD RX BUFFER POINTER 
SET UP TO COUNT CHARACTERS 


GET ANOTHER CHAR 

:GET A REC CHAR 

[MASK OUT UNWANTED BITS 
7DO THE CHARACTERS MATCH? 


:BR IF Ok 
Z;ERROR=-DATA DOESN'T MATCH 


SEQ 0043 
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2256 012362 005302 4$: DEC R2 ALL DONE? 
2257 012364 001367 BNE 3$ sNO=-GO BACK £OR MORE 
$s28 012366 104400 SCOPE ;SCOPE THIS TEST 
2260 

2261 

2262 012370 000000 MASK: 0 

2263 012372 026 026 SYNC1: .BYTE 26,26 

2264 012374 026 026 SYNC2: .BYTE 26,26 

2265 012376 TXBUF F : 

2266 012376 177777 9B<1111171111111111> 
2267 012400 000000 *B<0000000000000000> 
2268 012402 125252 *B<1010101010101010> 
2269 012404 052525 “B<0101010101010101> 
2270 012406 “B<0000000000000001> 
2271 012410 000002 *B<0000000000000010> 
2272 012412 “B<C000000000000100> 
2273 012414 10 *B<0000000000001000> 
2274 012416 000020 *B<0000000000010000> 
2275 612420 “B<0000000000100000> 
2276 012422 000100 *B<0000000001000000> 
2277 012424 000200 *B<0000000010000000> 
2278 012426 000400 “B<0000000100000000> 

012430 001000 “B<0000001000000000> 

2280 012432 002000 “B<0000010000000000> 
2281 012434 4000 28<000010000C000000> 
2282 012436 010000 *B<000100000000: 

2283 012440 020000 ~8<0010000000000000> 
2284 012442 040000 “*B<0100000000000000> 
2285 012444 100000 *B<1000000000000000> 
2286 012446 077777 4B<0111111111111111> 
2287 012450 137777 *8<1011111111111111> 
2288 012452 157777 *B<1101111111111111> 
2289 012454 167777 *B<1110111111111111> 
2290 012456 172777 *B<1111011111111111> 
2291 012460 175/77 *B<1111101111111111> 
2292 012462 176777 *B<1111110111111111> 
2293 012464 177377 *B<1111111011111111> 
2294 012466 177577 *B<1111111101111111> 
2295 012470 177677 *B<1111111110111111> 
2296 012472 177737 8B<1111111111011111> 
2297 012474 177757 *B<1111111111101111> 
2298 012476 177767 *B<1111111111110111> 
2299 012500 177773 8B<1111111171111011> 
2300 012502 177775 *B<1111111111111101> 
2301 012504 177776 8B<1111111111111110> 
2302 0125 000100 .BLKW 100 

2303 012706 .MEMCLR: 

2304 012706 005077 166446 CLR @DORCSR 

2305 012712 005077 166446 CLR a@DQTCSR 

2306 012716 005077 166444 CLR @DQERR 

2307 012722 612705 000920 MOV #16. ,R5 

2308 012726 152777 000020 166434 1$: BISB #BI1T4 ,ADOREG 
2309 012734 142777 000140 166426 BICB #140, aDQREG 
2310 012742 005077 166424 CLR aDasec 

2311 012746 105277 166416 INCB @DQREG 


C7DQH MACY11 30A(1052) 


CZDQHE .P11 03=DEC=80 08:27 


2312 
2313 


012752 


13054 
013256 


014304 


005305 


105077 


112777 
012777 


000000 


005037 


O3=DEC=80 08:29 PAGE 


166406 


166340 


166330 


000012 
000040 


026 
026 


026 
026 


166370 
166356 


166330 
166324 


46 : 
PROGRAM INITIALIZATION AND START UP. 

DEC R5 

BNE 1$ 

CLRB @DQREG 

CLRB @DQRCSH 

MOV #16.,R5 
2s: MOVB #10, aDQREG 

CLR @DQSEC 

MOVB #14, aDQREG 

CLR @DOQSEC 

INCB @DIRCSH 

DEC R5 

BNE 2$ 

CLRB @DQRCSH 
.MSTCLR: 

MOVB #MISC.,@DQREG 

art #B1T5 ,aDQSEC 
SYNC: .BYTE 26,26 
SYNC: -BYTE 26,26 
TXBFA: O 

.=.*+200 
RXBUFF : 

-BLKW 200 
XSYNC: .BYTE 26,26 
XSYNC2: .BYTE 26,26 
XTXBUF :0 

-=.+200 
MRXBUF: 0 

=. +200 
ERR: 0 
POLY: 0 
KXPOLY: O 
CHAR: 0 
COUNT: O 
ADDR: 0 
GDCHAR: 0 
DETCAR: 0 

sEND OF PASS 

: TYPE NAME OF TEST 

ZUPDATE PASS COUNT 

:CHECK FOR EXIT TO ACT=11 

sRESTART TEST 
EOP: CLR LSTERR 

CLR ERRFLG 

INC PASCNT 

TYPE 

MEPASS 

TYPE 

MCSRX 

CNVRT 

XCSR 

TYPE 

MVE CX 

CNVR?T 


G 4 


:CLEAR LAST ERROR PC 
:CLEAR ERROR FLAG 
UPDATE PASS COUNT 


SEQ 0045 


C7DQH MACY11 30A(1052) 
CZ2DQME P11 03=DEC=-80 


2368 014344 014452 


014472 


014474 
014476 


NN 
> 
N 
N 


013737 


O3=DEC=80 08:29 PAGE 47 
08:27 END OF PASS ROUTINE 
XVEC 
TYPE 
MPASSX 
CNVRT 
XPASS 
TYPE 
MERRX 
CNVRT 
XERR 
001230 164606 MOV PASCNT,@LIGHTS 
001276 DEC SAVNUM 
BNE RESTRT 
001504 001276 MOV DQNUM , SAVNUM 
000042 MOV a442,R1 
BEQ RESTRT 
RESET 
LOGICAL: 
JSR PC, (R1) 
NOP 
NOP 
NOP 
RESTRT: CKSWR 
002254 001214 MOV #TST1,RETURN 
002254 JMP TST] 
XCSR: 1 
002 .BYTE 6.2 
DORCSR 
XVEC: 1 
002 BYTE 3.2 
DOQRVEC 
KXPASS: 1 
002 -BYTE 6.2 
PASCNT 
KERR: 1 
002 BYTE 6.2 
ERRCNT 
sSCOPE LOOP AND INTERATION HANDLER 
_ «SCOPE: CKSWR 
040000 164474 BIT #B1T14,aSWR 
TYST: BEQ 1$ 
&R 3$ 
164470 TSTB @aTKCSR 
BPL 3$ 
164464 ~'y @TKDBR,RO 
004000 164446 1$: BIT #Sw11,aSwWR 
BNE 2$ 
001224 INC LPCNT 
001224 001222 CMP LPCNT, 1 COUNT 
BNE 3$ 
001312 es CLRB ERRFLG 
001224 CLR LPCNT 
00017 001222 MOV #15... 1CQUNT 
001216 001214 MOV NEXT RETURN 


;DISPLAY PASS COUNT 


sCHECK FOR ACT=11 OR DDP 
: IF NOT, 


CONTINUE TESTING 


SEQ 0046 


C7D0H MACY11? 30A(1052) 
CZ2DQHE P11 03=DEC=80 


2424 014574 013776 
000002 

2426 014602 001407 
014604 060432 


2435 014624 


2439 014626 010546 


2471 014770 105777 
2472 014774 100375 
2473 014776 117714 
2474 015002 142714 


000755 
022 122427 


03=DEC=80 08:29 PAGE 48 
08:27 GENERAL UTILITIES (CTYPE OUT, ERROR, SCOPE,ETC.) 
001214 3$: ad RETURN, (SP) 
BRw: 1407 
BRX: 432 
sCHECK FOR FREEZE ON CURRENT DATA 
a sSCOP1: CKSWR 
001000 164362 BIT #SWO9 ,aSWR 
BEQ 1$ 
001220 MOV LOCK, (SP) 
1$: RT] 
STELETYPE OUTPUT ROUTINE 
TYPE: MOV R5,-(SP) 
000002 MOV a2(SP),R5 
000002 000002 ADD #2,2(SP) 
016316 1$: TST @A4RD Sw 
BNE 300$ 
010000 164322 BIT #SW12.,aSWR 
BNE $ 
3008: TSTB (R5) 
BPL 2 
164320 MS a @TPCSR 
L = 
000015 164312 MOV ee 
164304 TSTB PCSR 
BPL or 
000012 164276 MOV #12, @TPDBR 
164270 23: TSTB aTPCSR 
BPL 2$ 
164264 MOVB (R5)+,aTPDBR 
BNE 1$ 
3$: MOV (SP)+,R5 
RT] 
sASCII STRING INPUT ROUTINE 
- INSTR: MOV R3,-(SP) 
MOV R4,-(SP) 
000004 014756 MOV a4 (SP), .MSG 
000002 000004 ADD #2,4(SP) 
.INST1: TYPE 
MSG: 0 
017110 MOV #INBUF ,R4 
000007 MOV #7 ,R3 
164210 1$: TSTB aTKCSR 
BPL 1$ 
164204 MOVB @TKDBR, (R4) 
000200 BICB #200, (R4) 
002 CMPB (R4) #25 
BNE 200$ 
016476 TYPE .MCRLF 
BR ~ INST1 
000015 2008: CMPB (R4)+,415 


I 4 


a ee 


SEQ 0047 


CZDQH —MACY11_ 30A( 1052) 
 C2DQHE.P11 —-03=DEC=80 

2480 015026 001423 
2481 015030 117777 
2482 015036 105777 
2483 015042 100375 
2484 015044 005303 
2485 015046 001350 
2486 015050 02 
2487 015052 010346 
2488 015054 010446 
2489 015056 104402 
2490 015060 016472 
2491 015062 005737 
2492 015066 001402 
2493 015070 104402 
249% 015074 000727 
2495 015076 012604 
2496 015100 012603 
2497 015102 000002 
2498 

2499 

2500 

2501 015104 010546 
2502 015106 010446 
2503 015110 016605 
2504 015114 012537 
2505 015120 012537 
2506 015124 012537 
2507 015130 112537 
2508 015134 112537 
2509 015140 010566 
2510 015144 005005 
2511 015146 012704 
2512 015152 122714 
2513 015156 00142 
2514 015160 121427 
2515 015164 002415 
2516 015166 121427 
2517 015172 003012 
2518 015174 142714 
2519 015200 152405 
2520 015202 122714 
2521 015206 00141 
2522 015210 00630 
2523 015212 006305 
2524 015214 006305 
2525 015216 0007 
2526 015220 122714 
2527 015224 00100 
2528 015226 005737 
2529 015232 001023 
2530 015234 104404 
2531 015236 000742 
2532 

2533 

2534 

2535 015240 020537 


O3=DEC=80 08:29 PAGE 4 


08:27 


016316 
016476 


000015 
016316 


015312 


J 4 


GENERAL UTILITIES (TYPE OUT,ERROR,SCOPE ETC.) 


164154 
2$: 


. INSTE: 
.INSTG: 


400$: 


INSTR2: 


-PARAM: 


PARAM1: 


PARERR: 


120$: 


LIMITS: 


BEQ INSTR2 
MOVB @TKDBR,@TPDBR 
TSTB aTPCSR 
BPL 

DEC R3 

BNE 1$ 

BR - INSTG 
MOV R3,-(SP) 
MOV R4,-(SP) 
TYPE 

MQM 

TST @ARDSW 
BEQ 400$ 
TYPE .MCRLF 

BR -INST1 
MOV (SP)+,R4 
MOV (SP)+,R3 
RT] 


CONVERT ASCII STRING TO OCTAL 


BNE 
INSTER 
BR 


R5,-(SP) 
R4,~(SP) 
4(SP),R5 
(R5)+,LOLIM 
(R5)+,HILIM 
(R5)+,DEVADR 
(R5)+,LOBITS 
(R5)+, ADRCNT 
ar SP) 


s1S FIRST CHARACTER A <CR> 
:1S CKSWR ROUTINE BEING USED 


TEST TO SEE IF NUMBER IS WITHIN LIMITS 


CMP 


R5.HILIM 


SEQ 0048 


CZ7DQH MACY11 30A(1052) 


CZDQHE .P11 03-DEC-80 08:27 





015244 


C15316 


015320 


015326 
015332 


015410 


015412 


015430 


000000 
000000 
000000 
015317 


016637 


010537 


017601 


K 4 


seein 08:29 PAGE 50 


015310 
015316 


015314 


000002 
015317 


000004 


001270 
001266 
001264 
001262 
001260 
001256 


000012 


001274 


GENERAL UTILITIES (TYPE QUT,ERROR,SCOPE,ETC.) 


BHI PARERR 
CMP R5,LOLIM 
BLO 


PARERR 
BITB LOBITS,R5 
BNE PARERR 


STORE NUMBER AT SPECIFIED ADDRESS 
MOV DEVADR ,R4& 


1$: MOV R5, (R4)+ 
ADD #2,R5 
DECB ADRCNT 
BNE 1$ 

PARTI: MOV (SP) +,R4 
MOV (SP) +,R5 
RTI 

LOLIM: 0O 

HILIM: 0O 

ens 0 


LOBITS: 0 
ADRCNT=LOBITS+1 
sSAVE PC OF TEST THAT FAILED AND RO=-R5 


.SAVO5: MOV 4(SP) ,SAVPC 
;SAVE RO-R5 

SvOS: MOV R5,SAVR5 
MOV .  R4,SAVR4 
MOV R3,SAVR3 
MOV R2,SAVR2 
MOV R1,SAVR1 
MOV RO, SAVRO 
RT] 
RESTORE RO-R5 

.RESOS: MOV SAVRO,RO 
MOV SAVR1,R1 
MOV SAVR2,R2 
MOV SAVR3,R3 
MOV SAYRG RS 
MOV SAVRS,R5 
RTI 

CONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER 

.CONVR: TYPE 
MCRLF 

.CNVRT: MOV RO,-(SP) 
MOV R1,-(SP) 


MOV R5.=(SP) 
MOV @12(SP),R1 


SEQ 0049 


L 4 


C7DQH  MACY11 30A(1052) O3=DEC-80 08:29 PAGE 51 
CZDQHE .P11 03=DEC-80 08:27 GENERAL UTILITIES (TYPE OUT,ERROR,SCOPE,ETC.) SEQ 0050 

2592 015434 013737 017152 001250 MOV TEMP, TEMP3 

5593 015442 062766 000002 000012 ADD #2,12(SP) 

2594 015450 012137 015632 MOV (R1)+,WRDCNT 

3595 015454 112137 015634 1$ MOVB (R11) +. CHRCNT 

596 015460 112137 015635 MOVB —— (R1) +. SPACNT 

2597 015464 013137 015636 MOV @(R1)+,BINWRD 

2598 015470 013704 015636 2$: MOV BINWRD.R4 

2599 015474 113705 015634 MOVB — CHRCNT,RS 

2600 015500 012700 017152 MOV #TEMP RO 

2601 015504 010403 3$: MOV R4_R3 

2602 015506 042703 177770 BIC #177770,R3 

2603 015512 062703 000060 ADD #060,R3 

2604 015516 110320 MOVB _—_—R’3, (RO) + 

2605 015520 000241 CLC 

015522 006004 ROR R4 

2607 015524 000241 CLC 

2608 015526 006004 ROR R4 

2609 015530 000241 CLC 
2610 015532 006004 ROR R4 

2611 015534 005305 DEC RS 
2612 015536 001362 BNE 3$ 

2613 015540 012703 017214 MOV HMDATA,R3 

2614 015544 114023 4$: MOVB  =(RO), (R3)+ 

2615 015546 105337 015634 DECB —sCHRCNT 

2616 015552 001374 BNE 4$ 

2617. 015554 105737 015635 TSTB ——- SPACNT 

2618 015560 001405 BEQ 6$ 

2619 015562 112723 000040 5$: MOVB #040, (R3)+ 

2620 015566 105337 015635 DECB = SPACNT 

2621 015572 001373 BNE 5$ 

2622 015574 105013 6$: CLRB ~—-_ (R33) 

2623 015576 104402 TYPE 

2624 015600 017214 MDATA 

2625 015602 005337 015632 DEC WwRDCNT 

2626 015606 001322 BNE 1$ 

2627 015610 013737 001250 017152 MOV TEMP3, TEMP 

2628 015616 012605 MOV (SP) +.R5 

2629 015620 012604 MOV (SP) +.R4 

2630 015622 012603 MOV (SP) +.R3 

2631 015624 012601 MOV (SP)+.R1 

2632 015626 012600 MOV (SP) +.RO 

2633 015630 000002 RTI 

2634 015632 000000 WRDCNT: 0 

2635 015634 000000 CHRCNT: 0 

2636 015635 SPACNT=CHRCNT+1 

2637 015636 000000 BINWRD: 0 

2638 : TRAP DISPATCH SERVICE 

2639 ARGUMENT OF TRAP IS EXTRACTED 

2640 D USED AS OFFSET TO OBT Al POINTER 
2641 oy SELECTED SUBROUTINE 

2643 015640 011646 .TRPSR: MOV (SP) ,-(SP) 2GET PC 4 nn 
2644 015642 162716 000002 SUB #2, (SP) =PC OF 
2645 015646 017616 000000 MOV a(SP), (SP) “GET ope 
2646 015652 006316 TRPOK: ASL (SP) “MULTIPLY TRAP ARG BY 2 
2647 015654 042716 177001 BIC #177001, (SP) “CLEAR UNWANTED BITS 


| 








M 4 


CZDQH MACY11 30A(1052) 03=DEC-80 08:29 PAGE 52 
GENERAL UTILITIES (TYPE OUT,ERROR,SCOPE ETC.) 


CSDOHE. P11 03-DEC-80 08:27 
2648 015660 062716 001314 


2649 015664 017616 000000 
2650 015670 000136 


015672 104414 
015674 032777 010000 


00 
015704 105777 163300 


100003 
015712 112777 000207 
015720 032777 020000 


015730 021637 001234 
015736 011637 001234 
015742 105037 001312 


015752 162705 000002 


015766 042704 177001 


016020 005737 016114 
016024 
016026 104402 , 


016476 
016052 112737 177777 
01 005737 016070 


016072 005737 016102 


000000 
016104 005737 016114 
016110 001402 


ADD #. TRPTAB, (SP) 
MOV a(SP), (SP) 
JMP a(SP)+ 


ERROR HANDLER 


MALT: 
163276 BIT 


#Sw12,aSwWR 
BEQ XBX 
TSTB aT CSR 
BPL 
163272 MOVB 4207 @TPDBR 
163252 XBX: BIT #SW13,aSWR 
BNE HALTS 
CMP (SP) ,LSTERR 
BEQ 1 
MOV (SP) ,LSTERR 
CLRB —-ERRFLG 
1$: SAVO5 , 
MOV (SP) ,R5 
SUB #2,R5 
MOV (R5) RG 
ASL R4 
ADD (RS) RG 
ASL RG 


BIC #177001 ,R4 
ADD #. ERRTAB RS 


MOV (R4)+, ERRMSG 
MOV (R4)+,DATAHD 
MOV (R4) ,DATABP 
TSTB ERRFLG 
BEQ TYPMSG 
TST DATABP 
BNE TYPDAT 
TYPMSG: TYPE 
MTSTN 
CNVRT 
XTSTN 
TYPE 
MERRPC 
CNVRT 
ERTABO 
TYPE 
MCRLF 
001312 MOVB #-1,ERRFLG 
TST ERRMSG 
BEQ WRKO.FM 
TYPE 
ERRMSG: 0 
WRKO.FM: 
TST DATAHD 
BEQ TYPDAT 
TYPE 
DATAHD: 0 
TYPDAT: TST DATABP 


BEQ RESREG 


POINTER TO SUBROUTINE ADDRESS 
; SUBROUTINE ADDRESS 
:GO TO SUBROUTINE 


SEQ 0051 





N 4 
| CZDQH MACY11 30A(1052) 03=-DEC=80 08:29 PAGE 53 
| CZDQHE.P11 03=DEC=80 08:27 GENERAL UTILITIES (TYPE OUT,ERROR,SCOPE,ETC.) SEQ 0052 
| 2704 016112 104410 CONVRT 
| 2705 016114 000000 DATABP: 0 
| = 3706 «016116 = 104407 RESREG: RESOS 
2707 016120 005777 163054 HALTS: TST aSwR 
2708 016124 100005 BP EXITER 
2709 016126 010046 PUSHRO 
2710 016130 016600 000002 MOV 2(SP) ,RO 
2711 016134 000000 HALT 
2712 016136 012600 POPRO 
2713 016140 104414 EXITER: CKSWR 
2714 016142 005237 001232 INC ERRCNT 
2715 016146 032777 000400 163024 BIT #SWO08 ,aSWR 
2716 016154 001007 RNE 1 
2717 016156 032777 002000 163014 BIT #SW10,aSWR 
2718 016164 001407 BEQ 2$ 
2719 016166 013737 001216 001214 MOV NEXT, RE TURN 
2720 016174 012706 001200 1$: MOV ASTACK, SP 
2721 016200 000177 163010 JMP @RE TURN 
2722 016204 000002 2$: RTI 
2723 016206 000001 ERTABO: 1 
2724 016210 006 002 .BYTE 6,2 
2725 016212 001274 SAVPC 
2726 016214 000001 XTSIN: 
2727 016216 003 002 .BYTE 3,2 
2728 016220 001226 TSTNO 
2729 sENTER HERE ON POWER FAILURE 
2730 
2731 
2732 016222 -PFAIL: 
2733 016222 012737 016234 000024 MOV #RESTART,24 SET UP FOR POWER UP TRAP 
2734 016230 000000 HAL T sHALT ON POWER DGWN NORMAL 
2735 016232 000777 BR . 
2736 ; 
e737 ;PROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED * 
2739 +016234 RESTAR: 
2740 016234 012737 016222 000024 MOV #.PFAIL,24 “;SET UP FOR POWER FAILURE 
2741 016242 012706 001200 MOV ASTACK, SP 
2742 016246 005037 017152 CLR TEMP 
2743 016252 005237 017152 INC TEMP ° 
2744 016256 001375 BNE 4 
2745 016260 104402 TYPE ms 
2746 016262 016500 MPFAIL on 
2747 016264 10441 CNVRT 
2748 016266 016310 PF TAB 
2749 016270 005037 001312 CLR ERRFLG 
2750 016274 005037 001234 CLR LSTERR 
2751 016300 104412 MSTCLR 
2752 016302 104413 MEMCLR 
2753 016304 000177 162704 - MP @RE TURN 
2754 016310 000001 PFTAB: 1 
2755 016312 003 002 .BYTE 3,2 
2756 016314 001226 TSTNO 
ey 4 
2759 CHECK SWITCH REGISTER ROUTINE , CHECKS FOR *G TO ALLOW CHANGING 


[rrr a er a 


| CZDQH  MACY11 30A(1052) 03- 


CZDQHE .P11 03-DEC-80 08:27 


Nm 
~ 
o 
ea 


016316 


016320 


044777 


000042 
000176 
162642 
162636 
177600 
000007 


016446 


002 


000107 
051127 


047040 

000 
000077 
051127 


020075 
053505 


043040 


042523 
043125 


DEC-80 08:29 PAGE 
GENERA 


~CKSWR: 


~CNTLU: 


MEPASS: 


MR 
MER2: 


MERR3: 


54 


:OF LOC.176. 
“LOCATIONS USED: 
Spsw: .WORD 0 
arg2 

OUT 
#SWREG, SWR 
OUT 

aTxcSR 

OuT 

aTKDBR, .MSG 
#177600, .MSG 
#7, .MSG 

BN out 
TYPE ,$CNTG 
COM aAR 
TYPE , SMSWR 


CNVRT , SWREGC 
INSTR, $MNEW 
PARAM 


DSw 


0, 
TYPE ,MCRLF 
CLR @ARD SW 
RTJ 


<377>/*G/ 
<377>/SWR= / 
/ NEW= / 


eASCIZ / 2/ 


-ASCIZ 


eASCIZ <377>/R/ 


eASCIZ 


-ASC1Z 


B 5 
L UTILITIES (TYPE OUT,ERROR,SCOPE,ETC.) 


aren 2. REGISTER PRESENT 


; THE GARBAGE 
sis 1T A <*@> 


<377> 
<377>/PWR FAILED. RESTART AT TEST / 


<377>/END PASS DZDQH / 


<377>/PROGRAM INDICATES NO DEVICES PRESENT./ 


<377>/ INSUFFICIENT DATA!/ 


—_——, 
j 


C7DQH MACY11 30A‘1052) 
CZDQHE P11 8 


017064 
017072 
017076 
017100 


017110 
017152 
017214 
017256 


017541 


03-DEC- 


0 08: 


044503 
040504 


051505 


051123 
041505 
051501 
000040 
047522 

000 
052377 
047516 
042523 


053111 
035103 


042522 


042012 


047105 
040524 


020124 
020113 


020072 
042523 
051522 


051505 
020072 


020124 


052524 


042503 


042521 


i =DEC-89 08:29 PAGE 55 


.-2 


GENERAL UTILITIES (TYPE OUT,ERROR,SCOPE,ETC.) 


<377>/TEST PC=/ 
<377>/LOCK ON SELECTED TEST/ 


7CSR: / 

/VEC: / 

/PASSES: / 

ZERRORS: / 

<377><377> /TEST NO: / 


<377>/SET SWITCH REG TO DQ11'S DESIRED ACTIVE./ 


fPC: Ff 
<377>/MAP OF DQ11 STATUS/<377> 


6,3 
6,2 


;BUFFERS FOR INPUT-OUTPUT 


MTSTPC: .ASCIZ 

MLOCK: .ASCIZ 

MCSRX: .ASCIZ 

MVECX: .ASCIZ 

MPASSX: .ASCIZ 

MERRX: .ASCIZ 

MTSTN: .ASCIZ 

MNEW: -ASCIZ 

MERRPC: .ASCiZ 

XHEAD : ASCiZ 

EVEN 

XSTATQ: 2 
-BYTE 
TEMP1 
TEMP2 

EVEN 

INBUF 0 

, 8, +40 

TEMP: 0 

ee +40 

MDATA: 0 

.=.+40 

EMO: -ASCIZ 

—M1: -ASCIZ 

EM2: -ASCIZ 

EM3: -ASCIZ 

DHO: -ASCIZ 

DH1: -ASCIZ 

DH2: eASCIZ 


<15><12>/RECEIVER DONE PRIMARY NOT SET!/ 
<15><12>/DATA COMPARISON ERROR.../ 
<15><12>/DQ ERROR FLAG SET. / 
<15><12>/NO RECEIVER INTERRUPTS!!! ! / 


<15><12>/EXPECTED FOUND 8X ADDR. TX ADDR. 


<15><12>/EXPECTED RECEIVED / 
<15><12>/DQERR 


MASK / 


| C7ZDQH 


MACY11 30A(1052) 


| CZDQHE .P11 


Ee 





017556 


03-DEC-80 


017556 
000005 


006 
001270 
006 
001266 
001260 
001256 
006 


000000 


000 
000001 


08 


O3=DEC-80 08:29 PAGE 56 
:27 GENERAL UTILITIES (TYPE OUT,ERROR,SCOPE,ETC.) 
EVEN 
DTO: 5 
004 -BYTE 6,4 
SAVRS5 
001 -BYTE 6,1 
SAVR4 
004 -BYTE 6,4 
SAVR1 
004 -BYTE 6.4 
SAVRO 
002 -BYTE 6,2 
MASK 
DT1: 2 
006 BYTE 6 
GDCHAR 
002 BYTE 3.2 
CHAR 
DT2: 1 
002 .BYTE 6,2 
ERR 
~ERRTAB: 
0 
0 
0 
EMO 
0 HALT 1 
0 
EM1 
DHO HALT 2 
DTO 
EM1 
DH1 HALT 3 
DT1 
EM2 
DH2 sHALT) 4 
DT2 
EM3 
0 HALT 5 
0 
~END 


D5 


SEQ 0055 


a 


' CZDQH 
— CZDQHE P11 

IT = 002000 
ACTBIT= 004000 
ADDR 014300 
ADRCNT= 015317 
BABIT = 910000 
BBBIT = 020000 
BINWRD 015636 
BITO = 000001 
BIT1 = 000002 
BIT10 = 002000 
BIT11 = 004000 
BIT12 = 010000 
B1T13 = 020000 
BIT14 = 040000 
BIT15 = 100000 
BIT2 = 000004 
BIT3 = 000010 
BITS = 000020 
BITS = 000040 
BIT6 = 000100 
BIT? = 000200 
BIT8 = 000400 
8I1T9 = 001000 
BRW 014602 
BRX 014604 
CHAR 014274 
CHARDT= 000010 
CHAR1 001236 
CHAR2 001240 
CHARS 001242 
CHRCNT 015634 
CKSWR = 104414 
CNTLU = 104415 
CNVRT = 104411 
CONVRT= 104410 
COUNT 014276 
CREAM 001300 
CSRMAP 000220 
DATABP 016114 
DATAHD 016102 
DETCAR 014304 
DEVADR 015314 
DHO 017436 
DH1 017513 
DH2 017541 
DISPRE 000174 
DLIGHT= 177570 
DQACTV 001500 
DacROO 14 
DQ@CRO1 001404 
DACRO2 001410 
D@CROS 001414 
DE@CRO4 001420 





MACY11 ede 


03=DEC=80 08:2 


6094 723 

6104 733 
22464 
2508*  2547* 25564 
6114 727 

6124 718 
2597* 2598 26374 
6044 1042 1160 
6034 1233 1284 
1630 1698 1699 
2096 2097 2162 
5944 

5934 

592K 

5914 

5904 2408 

5894 

6024 1013 1183 
6014 1142 1161 
1960 2026 2092 
6004 1189 1197 
5994 1160 1161 
5984 1189 1193 
5974 1186 1210 
5964 

5954 

1019 24264 

1020 24278 

1118* 1235* 23444 
6294 

8004 

8014 

8024 

2595* 2599 2615* 
8614 987 997 
8634 969 

8554 2363 2367 
8534 977 2704 
23454 

8174 941* 1051* 
6984 972 

2677* 2680 2702 
2676* 2698 27014 
23484 

2506* 2544 25544 
28654 2892 

28654 2895 

28654 2898 

6894 957 

5744 948 

669 743* 749s 
8884 

8904 

8924 

8944 


O3=DEC=80 08:29 PAGE 58 
:27 CROSS REFERENCE TABLE -=- 


2880 


26354 
1012 


2371 


1055* 
27054 


750* 


2636 
2389 
2375 


1064 


754 


— 3 


USER SYMBOLS 


1418 


2308 
2327 


2407 
2684 


1065* 


9204 


1487 


2431 
2688 


1066 


994* 


1423 
1898 


1556 


2654 
747 


1067* 


995 


SEQ 0056 


1491 1492 1560 1561 1629 
1899 1964 1965 2030 2031 
1625 1694 1762 1828 1894 
2713 

2778 

1045 1047 


a 
| CZDQH MACY11 30A(1052) O3=DEC-80 08:29 PAGE 59 


CZDQHE.P11  03=DEC=80 08:27 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0057 

DACROS 001424 898 

DACRO6 001430 900" 

DACRO? 001434 902" 

DACR1O0 001440 9044 

DOCRI1 001444 9064 

DACRI2 001450 9084 

DaCR13 001454 910# 

DACR14 001460 912" 

DACR1S 001464 9148 

DOCRI6 001470 9164 

DACRI7 001474 918# 

DaCsR 001506 9234 1064* 1068 - 

DOERR 1 8784 1081* 1082* 1083 1179 1204 2306* 

| BQNUM 001504 702* 739% 744 746 922" §=—936 =~ 2380 
| DORCSH 001362 B76" = =1077* 1078* 2315* 2321" 2324s 

DQRCSR 001360 875# 1068* 1077. 1079 1160* 1208 1210" 1219% 12948 1297 1363* 1366 14328 
1635. 1501* «1504 += 1570* 1578 —S«1639" = 1642,—Ssi«d1708* «= 1717Ss«1776* «1779S 1842" =: 1845 
1908" 1911 1974* 1977 2040* 2043 2106" 2109 21728 2175 2238* 2241 2304 

DQREG 601370 379# 1083" 1084* 1085 1120* 11228 1124" 1126* 1128* 1130" 11328 1134* 11368 
1138* 1143 1165* 1166 1168* 1185* 1188* 1189 1191* 1194* 1196 1197* 11998 
1211*  1213% 1214" 12208 222% 1223% 1232% 1245* 12658 1279% 1286* 1288*  1290* 
1592* 133% 1348% 1355* 1357e 1359" 1361® 1403* 1417 1424* 1426* 1428* 1430 
1472" 1486" 1493* 1495* 1497" 1499% 1541* 1555% 1562* 1564* 1566" 1568*  1610* 
1624* 1631" 1633" 1635* 1637" 1679 1693* 1700* 1702" 1704* 1706* 1748* 1761* 
1768*  1770* 1772% 1774* 1816* 1827 1834* 1836* 1838* 1840* 1880* 1893  1900* 
1902" 1904" 1906" 194668 1959% 1966* 1968* 1970* 1972 2012*  2025*  2032* 2034 
2036" 2038" 2078* 2091* 2098* 2100* 2102 2104 2144* 2157% 2164 2166* 21688 
2170s 2210s 3223% 2230% «= 2232e 2234" 2236 = 2308 «= 2309* = 2311" «= 2314" = 2317* = 23198 

* 

DORLVL 001352 B72# 1071* + 1072* 1073 11578 

DORVEC 007350 871# 1069" 1070* 1071 1156* 2397 

DOSEC 001372 8804 1085* 1086* 1087 121% 1123% 1125" 1127 11298 1131" =: 1133*)-1135* 11378 
1139® 9 1142% 1144" 1167-1187" 1190® 1195 = 1198* 1212" = 1215* = 1221* = 1224" = 1233 
1278* 1280" 1283 1284" 1285% 12878 1289* 1291* 12938 1347" 1349" 13528 1353 
1354" 1356" 1358" 1360" 1362* 1416* 14618* 1421* 1422 14238 1425" 14278 1429 
1431* 1485* 1487" 1490* 1491* 1492 1494 1696* 1498* 1500* 1554* 1556* 1559s 
1560* 1561* 1563 1565* 1567" 1569x 1623* 1625* 1628* 1629" 1630* 1632% 1634 
1636" 1638" 1692* 169% 1697 1698* 1699% 1701* 1703" 1705" 1707* 1760* 1762 
1765* 1766% 1767" 1769* 1771* 1773" 1775" 1826* 1828* 1831* 1832* 1833* 1835 
1837*  1839% 1841" 1892* 1894* 1897 1898 1899* 1901* 1903" 1905* 1907* 1958 


DQSECH 001374 8814 1087* 1088* 
DQSTAT 001510 9244 1066* 1069 1109 1140 1269 1338 1407 1476 1545 1614 1683 1754 
1820 1886 1952 2018 2084 2150 2216 

DaSTOO 001402 8894 

DOSTO1 001406 8914 

DOSTO2 001412 8934 

D@STO3 001416 8954 

DQSTO4 001422 8974 

DQSTOS 001426 8998 

DQSTO6 001432 9014 

DQSTO7? 001436 903" 


CZ7DQH 


MACY1? 304(1052) 


CZDQHE .P11 


ZES 
ath 
ma 

as 


teat ae 


001442 


03=DEC=80 08:2 


ot ati seats PAGE 60 


G 5 


ROSS REFERENCE TABLE == USER SYMBOLS 


1080* 1081 

1777* 1843* 
1075* 1076* 1159s 

1074* 1075 


1105* 2422* 
2511 28594 

963 966* 

2530 

1023 2779 
24954 

730 1140 

948+ 957* 2377* 
25354 

2539 25554 2556 
2434 

23844 

2537 25524 

2417* 2418 2421* 
943* 2356* 2662 
1268 1273 1310 
1480 1517 1543* 
1724 1750* 1751 
2014* 2015 2054 
2875 


1161* 
19098 


1158+ 


2665* 


2678 


1186* 
20418 


2692* 


1535 


1193* 
2107* 


2749* 


1604 


1295* 
2173* 


1673 


1364* 
2239* 


1742 


1433* 
2305* 


1808 


1502* 


1874 


SEQ 0058 


1571* 


C7D0H MACY11 30A(1052) 


C2DQHE P11 


| MLOCK 

| MPFAIL 
MOM 

} 

| 


: MTSTN 


| OUT 
| 


SAVACT 


PUSH1S= 
PUSH2S= 


Sere 


016536 
017043 


000004 
013256 


003502 
000001 
000005 
000015 
001502 


03=DEC=80 08:27 


2360 28044 
2687 28448 
2374 2831 
761 1059 
991 2815 
6718 2326 
1015 26214 
984 28368 
2370 28298 
2746 27994 
2490 27978 
1033 28074 
8574 2751 
770 965 
2683 20334 
1024 28198 
2366 282748 
7894 1039* 
1939* 2005* 
6144 732 
2766 2768 
8478% 1025 
25104 2531 
2513 2515 
2529 25498 
7944 938* 
2748 27544 
23424 

6364 

S83a@ 862712 
5814 

5854 

5758 672* 
5824 2709 
5804 

5844 
2442 249° 
2703 27064 
2733 27398 
2379 2382 
8514 2706 
7884 945" 
8194 1042* 
8208  1043* 
8184 940* 
6204 

6244 

1121 1212 
1494 1510 
1785 1809 
2073 2099 
1156 12024 
6214 

6254 

6544 

7548 9214 


H 5 
CROSS REFERENCE TABLE == USER SYMBOLS 


03=DEC=80 08:29 PAGE 61 


28084 
1106* 1258* 1327* 1396* 1465* 
2071* 2137* 2203* 2423 2719 
2770 2774 27864 
2780 
2517 25264 2536 2538 2540 
2358" 2377 2400 
933* 1008* 1119* 
2528 27624 2776* 2786* 
23894 
1028 1032" 1034 1038* 1104* 
1045 1050" 1056" 1063* 
1052* 1054* 
1040 1044* 
1217 1260 1287 1303 1329 
1536 1563 1579 1605 1632 
1835 1851 1875 1901 1917 
2115 2139 2165 2181 2205 
988 


15348 


2390+ 


1603* 


24238 


1672* 


2424 


17418 


2719s 


1425 
1717 


2007 


1807* 


2721 


SEQ 0059 


1873* 


2753 


1467 
1769 
2049 


' 2 
C7DQH = MACY11 eb OF PEC=80 08:29 PAGE 62 


CZ7DQHE P11 03=DEC=80 08:27 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0060 

SAVNUM 001276 747* 8108 936* 2378 2380+ 

SAVPC) =: 001274 8154 2560* 2725 

SAVRO 001256 8084 2569 2574 2873 

SAVR1 =: 001260 809% 2568" 2575 2871 

SAVR2 901262 8104 2567* 2576 

| SAVR3 001264 8114 2566* 2577 

SAVRG =: 0011266 812% 2565* 2578 2869 

SAVRS 001270 8134 2564* 2579 2867 

SAVSP 001272 8144 

SAVOS = 104406 8494 2666 

| SCOPE = 104400 8374 1176 1316 1385 1454 1523 1592 1661 1730 1796 1862 1928 1994 

2060 2126 2192 2258 

SCOP1 = 104401 8394 

SEQ. = 000014 6334 

SETON 002752 1120# 

SPACNT= 015635 2596* 2617 2620* 26364 

STACK = 001200 5764 934 1009 2720 2741 

STFLG 00171313 8254 937* 

sv05 015326 25644 

SwR C01200 7798 947* 952 956* 967 970 981 988 994 1013 1021 2408 2415 
2432 2444 2655 2660 2707 2715 2717 2767 

SWREG 000176 6904 956 967 2767 2783 2790 

SWREGC 016440 2778 27884 

SswoO = 000001 5564 98 

SwO1 = 000002 5554 ~=1021 

SwWO2 = 000004 5544 

SwO3 = 000010 5534 

sw0O4 = 000020 5524 

SwOS = 000040 5514 

SwO6 = 000100 5504 

swo8 = 000400 5494 2715 

SwO9 = 001000 5484 2432 

SW10 = 002000 5474 2717 

SW11 = 004000 5468 2415 

Sw12 = 010000 5454 2444 2655 

Sw13 = 020000 5444 2660 

SW14 = 040000 5434 

SW15 = 100000 5424 

SYNBIT= 1 6154 712 1109 

SYNC 013052 1711* 1114* 1125 1266 1335 1404 1473 1542 1611 1680 1749 1815 1881 

ee yr # 2013 2079 2145 2211 23304 

SYNC1 012372 1276* 1345 1414* 1483* 1552* 1621* 1690" 1756* 1758 1773 1822* 1824* 1839 
1888* 1890* 1905 1954* 1956* 1971 2020* 2022* 2037 2086" 2088 2103 21528 
2154* 2169 2218* 22208 2235 22634 

SYNC2 012374 1277* 1291 1346* 1360 1415* 1429 1484* 1498 1553* 1567 1622* 1636 16918 
1705 1759 1825* 1891* 19578  2023* 2089* 2155* 2221 22644 

TEMP 017152 2592 2600 2627* 2742% 2743% 28614 

TEMP1 001244 669* 670* 8034 974% 975 979x 2852 

TEMP? 001246 8044 975* 1162" 1171* 1203" 1266" 1268* 1272* 1273 12758 1276 1277 1278 
1307* 1308 1309 1335" 13378 13418 1342% 1344* 1345 1346 1347 1376" 13772 
1378 1404* 1406* 1410* 1411* 1413 1414 1415 1416 1445* 1446* 1447 1473+ 
1475 1479 1480* 1482* 1483 1484 1485 1514* 1515* 1516 15428 15448 1548 
1549" 15518 1552 1553 1554 15835* 1584* 1585 1611" 16138 1617* 16188 1620" 
1621 1622 1623 1652* 1653* 1654 1680* 1682* 1686* 1687* 1689* 1690 1691 
1692 17218 1722* 1723 1749* 1751* 1753 1758 1759 1760 1815* 18172 18192 


' CZDQH 
| CZDQHE.P 








MACY11 30A(1052) 
03=DEC=80 


im 


000006 
013054 


014466 
017050 


03=DEC=80 08: 
8:27 


29 PAGE 63 
1826 1881* 
2013" 2015* 
2147* 2149s 
1241*  2592* 
1169* 
2471 2769 
2473 2481 
2451 2454 
2453% 2456* 
1037* 1103* 
2004* 2070* 
10374 2390 
11034 
2350 

1019* 1020* 
1216 23314 
1440 1509 
22654 
27024 

965 973 
2477 2489 
2785 
26344 
26604 


1883* 
2017* 
2154 


2627 


2771 


2482 
2481* 


1257* 
2136* 
2391 


24094 


1578 


983 
2493 


. 3 
CROSS REFERENCE TABLE == USER SYMBOLS 


1885* 
2022 
2155 


2657 
2659s 


1326* 
2202* 


1647 


990 
2584 


1395* 
2728 


1716 


1015 
2623 


1464s 
2756 


1784 


1033 
2682 


1533* 


1850 


1058 
2686 


1947* 
2081* 
2215* 


1602* 


1916 


2359 
2690 


1671* 


1982 


2361 
2695 


1740* 


2048 


2365 
2700 


1806* 


2114 





[ 


K 5 


CZDQH_ _MACYTT 30A(1052)_O3-DEC-B0 08: 29 PAGE 64 ; 
C2DQHE.P11 03-DEC-80 08:2 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0062 
KPASS 014460 2372 =. 2398 
KPOLY 014272 53434 

| XRXBUF 014 1129. 1221~Ss«1226.—Ss« 2339 
KSTATQ 017076 978 28504 

| xSYNC 013656 1W12* 1115" 23354 
KSYNC2 013660 2336 
XTSTN 016214 5685-27 26# 

XTXBUF 013662 7133. 1151-«1195.-s«'1225+—~=St«*« 837 
KVEC 014452 2368 ©2395 
SCNTG 016446 5775 27918 
= 000023 1#@ 7039. «1040 «=«1106-=Ss«1i07@ = 1258 )«=—«1259H «= 1327S «1328# «= 1396 «1397 = 1465. 14668 
1534-1535 «1603 «=««1604# ~«=««1672—~=é«‘«*2673H@~=C«1741~=~=«d1 742 ~=«:1807,—Sss«*1808# = «1873 =—«1874H = 1939 
1940" 2005 20064 2071 2072# 2137 21384 2203 22044 
SMNEW 016461 5794H 
SMSWR 016452 5777, —-2792# 
$N = 000021 1# 1035 1040 11074 1255 12598 1326 1328 1393 1397 1462 1466 
1531. 1535 1600 16044 1669 16734 1738 1742 1804 1808 1870 1874" 1936 
1940# 2002 20064 2068  2072# 21 21384 2200 2204# 23508 
$y = 000016 1# «= 8284 == «B37 B39" “Bol# 8434 8454 8474 849% B51 8534 855% 857% 
859" 861% 8634 8654 
7 = 017670 6404 641 6434 6504 6524 660% 676 6884 69464  697# 701 717 722 
726 729 764 o69H = 776#—«i7#~—«RB7H~—OCBBBAH)CBB8OH = 90H) «B91# «= B92 = 8934 
Boce ««805# —s« 96H «=O TH ~=—B9BH «= B99H = «00H «= («01H «= «02k «= (9034 «= 04H = (905 # 
907% 9084 909% 910# 9114 912% 9134 9148 9154 916" 917% 918% 9198 
920" 921% 9224 923% 924# 971 976 980 993. 1061 1141 1180 1205 
2302e «2382 «23344 «= 2388H «— 2340H ©2449-2452 27352744 = 2796 = 2849 = 28604 = 286.24 
58644 28654 
BEGIN 002116 10084 
“CKSWR 016320 862 27654 
"ENTLU 016374 864-27 76H 
“ENVRT 015416 856  2586M 
"CONVR 015412 854 2584 
° 14306 2203 © 2356# 
"ERRTA 017624 5674  2884H 
: 15672 646 26544 
"INSTE 015052 846 24874 
“INSTG 015056 2486 2489# 
"INSTR 014734 844 24634 
"INSTI 014754 2467# 2478 249% 
"MEMCL 012706 860 23034 
"MSG 014756 2465" 34684 2771% 2772% 2773 
"MSTCL 013032 858 23254 
"PARAM 015104 848 25014 
"PFAIL 016222 644 935. 27324 «©2740 
"RESOS 015360 852 25 74H 
"sav05 015320 850 6 
"SCOPE 014474 838 24074 
"SCOP1 014606 840 24314 
"START 001512 695 9334 © 945 
"SYNC 013050 1137-2329 
TRPSR 015640 64 56434 
TRPTA 001314 8364 648 


° 26 
-TYPE 014626 842 24398 





Bea Seay Sa a ae ee 


| CZDQH  MACY11 30A(1052) 03=DEC-80 08:29 PAGE 66 

| C2DQHE P11 03=DEC=80 08:27 CROSS REFERENCE TABLE == MACRO NAMES 
| 

| 


18 2349 
DOF RNT 18 522 
HLT S868 81173 1181 1206 1236 1301 1313 1370 1382 1439 
1646 1658 1715 1727 1783 1793 1849 1859 1915 1925 
2123 2179 2189 2245 2255 
IDENT 14 
ORANGE 14 1035 
TESTA 14 
TESTBI1 14 
TESTC1 # 
TESTD1 14 
TESTE’ 14 
TESTF1 14 
TESTH1 14 
TESTH2 14 
SBEGIN 14 1005 
$BUF FE 14 2856 
$CATCH 14 639 
$SCLRVE 14 970 
$SCONVR 1” 2581 
$DQCHR Ley 1249 1318 1387 1456 1525 1594 1663 1732 1798 
oP 14% 2349 
$SGETFL 14 
$GE TPA 14 1023 
SHEADE 14 522 
SHLT 14 2651 
SINSTR 14 2460 
SINTNP la 
SMAINT 4 
$MSG 14 2797 
$PARAM 14 2498 
$PFAIL 14 2729 
$REG 14 2557 
$SSCOPE 14 2404 
$SCOP1 14 2428 
SSETFL 14 
SSETVE 14 641 
SSTART 14 925 
$SYMBO 14 539 
STRAPS 14 828 
STRPDE 14 837 839 841 843 845 847 849 851 853 
$TRPSR 14 2638 
$STSTN 14@ 1035 1101 1255 1324 1393 1462 1531 1600 1609 
2068 2134 2200 
$TYPE 14 2436 
$VARIA 14 768 


. ABS. 017670 000 
ERRORS DETECTED: 0 


CZDOQHE .BIN, CZDQHE. Dp TOC=CZDQXX.MAC, CZDQHE .P11 
RUN-TIME: 19 28 2 SECONDS 


1864 


855 
1738 


1930 


857 
1804 


1520 
2047 


1996 


859 
1870 


1577 
2057 


2062 


861 
1936 


2128 


863 
2002 


Tete eee a 
CZDQH MACY11 30A(1052) 03=DEC-80 08:29 PAGE 67 
CZDQHE.P11 03=DEC=80 08:27 CROSS REFERENCE TABLE == MACRO NAMES ° SEQ 0064 


RUN-TIME RATIO: 78/50=1.5 
CORE USED: 19K (37 PAGES) 


| 
| 


